Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (FB/80)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=... output file (FB/80)
//TOOLIN DD *
SORT FROM(IN) TO(T1) USING(CTL1)
SORT FROM(T1) USING(CTL2)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=(6,1,CH,EQ,C'B'),OVERLAY=(81:C'0000100000')),
IFTHEN=(WHEN=(6,1,CH,EQ,C'O'),OVERLAY=(81:C'0000000001'))
SORT FIELDS=(1,4,CH,A,6,1,CH,A,8,7,CH,D)
/*
//CTL2CNTL DD *
OPTION EQUALS,ZDPRINT
SORT FIELDS=(1,4,CH,A)
SUM FIELDS=(81,5,ZD,86,5,ZD)
OUTFIL FNAMES=OUT,OMIT=(81,5,ZD,EQ,0,OR,86,5,ZD,EQ,0),
BUILD=(1,80)
/*
|
|
|