Re: CPYF CLP Question

If I'm understanding you correctly the 'CC01' is the only thing that can
change, correct?


PGM (&INPARM)

DCL &QUOTE *CHAR 1 ''''
DCL &INCCHAR *CHAR 17
DCL &INPARM *CHAR 4

CHGVAR &INCCHAR ('*RCD 1 *EQ' || &QUOTE || &INPARM || &QUOTE)

CPYF FROMFILE(fromlib/file1) TOFILE(tolib/file1) MBROPT(*REPLACE)
INCCHAR(&INCCHAR)

ENDPGM


Michael Schutte
Work 614-492-7419
email  michael_schutte@xxxxxxxxxxxx


                                                                           
             fbocch2595@xxxxxx                                             
             m                                                             
             Sent by:                                                   To 
             midrange-l-bounce         midrange-l@xxxxxxxxxxxx             
             s+michael_schutte                                          cc 
             =bobevans.com@mid                                             
             range.com                                             Subject 
                                       CPYF CLP Question                   
                                                                           
             03/09/2006 04:29                                              
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




Hi, does anyone have copies of a pgm that I could use that would allow me
to pass the INCHAR variable so that I could run the cpyf command in a
certain way?

An example of the command is;

CPYF FROMFILE(fromlib/file1) TOFILE(tolib/file1) MBROPT(*REPLACE)
INCCHAR(*RCD 1 *EQ 'CC01')

The item in red is the only thing that will change.  I want a command to
prompt and allow a change to just the part of INCCHAR which contains the
VALUE.

Does anyone have some code examples that I can use?

Thanks, Frank
--
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.