I'm comparexing two control cards. When different, I want to take one control card and build a new control card.
I have input file
File Edit Edit_Settings Menu Utilities Com
Code:
EDIT SORTIN DSN=P###.W@@@.WD.PWDD#@@V.VTB181S1.SRT
Command ===>
****** ***************************** Top of Data**************
OMIT COND=((21,9,CH,EQ,C'831804109'),
OR,(21,9,CH,EQ,C'52470R888'),
OR,(21,9,CH,EQ,C'92204L203'))
****** **************************** Bottom of Data ************
I want output to be:
Code:
EDIT SORTOUT DSN=P###.W@@@.WD.PWDD#@@SORTOUT
Command ===>
****** ***************************** Top of Data************
OMIT COND=((24,9,CH,EQ,C'831804109'),
OR,(24,9,CH,EQ,C'52470R888'),
OR,(24,9,CH,EQ,C'92204L203'))
OUTREC FIELDS=(1C'*',2,349)
SORT FIELDS=COPY
****** **************************** Bottom of Data *********
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
ywheeler,
When you use report features like header,trailer .., DFSORT will add an additional byte in the begining of the record which will have the ANSI carriage control character. So the LRECL is increased by 1 byte. for example if you have 80 byte FB file and you use reporting features then the output dataset will have 81 byte lrecl and recfm is FBA.
Removecc specifies that the ANSI carriage control character(print) is to be removed from OUTFIL output records for this OUTFIL group before the records are written.DFSORT will set the LRECL to 80 instead of 81 and remove the ANSI carriage control character from each record before it is written.