RE: CPYF CLP Question

? CPYF ?-FROMFILE(FROMLIB/FILE1) ?-TOFILE(TOLIB/FILE1) ?-FROMMBR(*FIRST)
?-TOMBR(*FIRST) ?-MBROPT(*REPLACE) ?-CRTFILE(*NO) ?-OUTFMT(*CHAR)
?-PRINT(*NONE) ?-RCDFMT(*ONLY) ?-FROMRCD(*START) ?-TORCD(*END)
?-FROMKEY(*NONE) ?-TOKEY(*NONE) ?-NBRRCDS(*END) ??INCCHAR(*RCD 1 *EQ
'CC01') ?-INCREL(*NONE) ?-FMTOPT(*NONE) ?-SRCOPT(*SAME) ?-SRCSEQ(1.00
1.00) ?-ERRLVL(0) ?-COMPRESS(*YES)   
                 

-----Original Message-----
From: midrange-l-bounces+jdamato=dollargeneral.com@xxxxxxxxxxxx
[mailto:midrange-l-bounces+jdamato=dollargeneral.com@xxxxxxxxxxxx] On
Behalf Of fbocch2595@xxxxxxx
Sent: Thursday, March 09, 2006 3:29 PM
To: midrange-l@xxxxxxxxxxxx
Subject: CPYF CLP Question

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