RE: Can CL write to a disk file

[Jim Essinger <esinger@xxxxxxxx>]

   Missed a closing parenthesis

   Should be

      SETVAR((CHARVAL  ('''' *TCAT &CHAR_FIELD *TCAT '''')))

   I also have a QMQRY that does:

   DELETE From SAVEINFO      
          Where SROVOL LIKE  &VOL_ID

   the STRQMQRY command is this:

   STRQMQRY   QMQRY(DEL_VOLID) SETVAR((VOL_ID ('''%' *TCAT +
                &VOL_ID *TCAT '%''')))                     

   Jim
   At 04:15 PM 8/17/2005 Wednesday, I wrote:

        Walden,

        I have tried that, QMQRY treats the &xxx as a literal, and no
     substitution
        is done.  Not recognized as a variable.

        Rob,

        I set the values on the STRQMQRY command as follows,

        Literal:

        SETVAR ((LITVAL  ''' place literal text here '''))

        Character value field:

        SETVAR((CHARVAL  ('''' *TCAT &CHAR_FIELD *TCAT '''') )

        Number value field:

        SETVAR((NUMVAL &NUM_FIELD))

        It seems to work well for me most times.

        Hope this helps!

        Jim

       
     
----------------------------------------------------------------------------------------------
        Jim Essinger
        Senior Programmer/Analyst
        UnLtd Support Services
        PO Box 730
        Fruitland ID 83619
        208-452-4058 Ext 133
       
     
----------------------------------------------------------------------------------------------

        At 03:42 PM 8/17/2005 Wednesday, you wrote:

          Rob,

          What happens if you put single quotes in the QMQRY file? That is:

          INSERT INTO OUTQFIX
          VALUES('&OUTQFIX_OUTQ', '&OUTQFIX_AUTHLIST', '&OUTQFIX_CHANGED',
                 '&OUTQFIX_MSGID')

          Does it then treat the &xxx as a literal, or does it still replace
     them?

          -Walden

          ------------
          Walden H Leverich III
          Tech Software
          (516) 627-3800 x11
          WaldenL@xxxxxxxxxxxxxxx
          http://www.TechSoftInc.com

          Quiquid latine dictum sit altum viditur.
          (Whatever is said in Latin seems profound.)

          -----Original Message-----
          From: midrange-l-bounces@xxxxxxxxxxxx
          [ mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
     rob@xxxxxxxxx
          Sent: Wednesday, August 17, 2005 5:38 PM
          To: midrange-l@xxxxxxxxxxxx
          Subject: Can CL write to a disk file

          Is there a command like SNDF that will work to a disk file?  V5R3.

          Trying  workarounds like
            CHGVAR VAR(&OUTQFIX_OUTQ) VALUE('A')
            CHGVAR VAR(&OUTQFIX_AUTHLIST) VALUE('A')
            CHGVAR VAR(&OUTQFIX_CHANGED) VALUE('A')
            CHGVAR VAR(&OUTQFIX_MSGID) VALUE('A')
            STRQMQRY QMQRY(OUTQFIX) +
                   SETVAR((OUTQFIX_OUTQ &OUTQFIX_OUTQ) +
                          (OUTQFIX_AUTHLIST &OUTQFIX_AUTHLIST) +
                          (OUTQFIX_CHANGED &OUTQFIX_CHANGED) +
                          (OUTQFIX_MSGID &OUTQFIX_MSGID))
          Which executes
          INSERT INTO OUTQFIX
          VALUES(&OUTQFIX_OUTQ, &OUTQFIX_AUTHLIST, &OUTQFIX_CHANGED,
                 &OUTQFIX_MSGID)
          But I get stupid messages like:
          CALL ROB/TESTFIX
             215 - STRQMQRY QMQRY(OUTQFIX) SETVAR((OUTQFIX_OUTQ 'A')
            (OUTQFIX_AUTHLIST 'A') (OUTQFIX_CHANGED 'A') (OUTQFIX_MSGID 'A'))
          Column A not in specified tables.
          RUN QUERY command failed with SQLCODE -206.

          And I'm just plain disgusted playing the apostrophe game.

          Rob Berendt
          --
          Group Dekko Services, LLC
          Dept 01.073
          PO Box 2000
          Dock 108
          6928N 400E
          Kendallville, IN 46755
          http://www.dekko.com
     --
     This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
     list
     To post a message email: MIDRANGE-L@xxxxxxxxxxxx
     To subscribe, unsubscribe, or change list options,
     visit: http://lists.midrange.com/mailman/listinfo/midrange-l
     or email: MIDRANGE-L-request@xxxxxxxxxxxx
     Before posting, please take a moment to review the archives
     at http://archive.midrange.com/midrange-l.