Re: Weird CPYF behavior... ???

[MWalter@xxxxxxxxxxxxxxx]

Have you tried using QCMDEXC? Seems that I've run into this before.

CHGVAR VAR(&command) +
  VALUE('CPYF FROMFILE(YAAVREP) TOFILE(QTEMP/YAAVREP) +
            CRTFILE(*YES) INCREL((*IF AVAQCD *EQ " ' *cat  &TASK *tcat
'"))'
CALL PGM(QCMDEXC) PARM(&command &cmdlen)


Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


                                                                           
             "Peter Vidal"                                                 
             <Peter_Vidal@pall                                             
             .com>                                                      To 
             Sent by:                  midrange-l@xxxxxxxxxxxx             
             midrange-l-bounce                                          cc 
             s@xxxxxxxxxxxx                                                
                                                                   Subject 
                                       Weird CPYF behavior... ???          
             01/05/2005 03:36                                              
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




Hi list!

I have this:

START:      PGM        PARM(&TASK)

            DCL        VAR(&TASK) TYPE(*CHAR) LEN(10)

IF         COND(&TASK *NE '*ALL') THEN(DO)
      DLTF       FILE(QTEMP/YAAVREP)
      MONMSG     MSGID(CPF0000)
      CPYF       FROMFILE(YAAVREP) TOFILE(QTEMP/YAAVREP) +
                 CRTFILE(*YES) INCREL((*IF AVAQCD *EQ &TASK))
ENDDO

END:        ENDPGM

If the value for &TASK is "ABC", then the file being builded end up with
four records as follows:

1) ABC
2) ABCPRIME
3) ABCDIDS
4) ABC3

Why?  I just want the "ABC" record to be created in QTEMP?  What I am
doing wrong?

TIA,

Peter Vidal
PALL Corporation / IT Development Group
10540 Ridge Rd., Ste 203
New Port Richey, FL 34654-5111
http://www.pall.com

"Knowledge is power." -- Francis Bacon (1561 - 1626)
--
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.