Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
Hello,
The below SyncSort job should do what you asked.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN= Input file (FB/LRECL=80)
//T1 DD DSN=&&T1,DISP=(,PASS),UNIT=SYSDA
//T2 DD DSN=&&T2,DISP=(,PASS),UNIT=SYSDA
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,2,CH,EQ,C'01'),
OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=NONE,
OVERLAY=(89:SEQNUM,8,ZD,81:81,8,ZD,SUB,89,8,ZD,M11,LENGTH=8))
SORT FIELDS=COPY
OUTREC OVERLAY=(97:SEQNUM,8,ZD)
OUTFIL FNAMES=T1,BUILD=(1,88)
OUTFIL FNAMES=T2,INCLUDE=(1,2,CH,EQ,C'06'),
BUILD=(1,88,SEQNUM,8,ZD,RESTART=(81,8))
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTOUT DD DSN= Output file (FB/LRECL=80)
//SORTJNF1 DD DSN=&&T1,DISP=(OLD,PASS),UNIT=SYSDA
//SORTJNF2 DD DSN=&&T2,DISP=(OLD,PASS),UNIT=SYSDA
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(81,8,A),SORTED
JOINKEYS FILE=F2,FIELDS=(81,8,A),SORTED,INCLUDE=(89,8,ZD,EQ,2)
REFORMAT FIELDS=(F1:1,80)
SORT FIELDS=COPY |
|
|