Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
ramsri wrote: |
Guys, looks like this is not possible |
Nothing is impossible.
The below SyncSort job does what you asked for.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
XXX5 DRAMTUKS1004316ZY1
40101NDSXR91G1AD5F5 A7
40101NDSYSB1G1AD5F5 A7
40101NDSZSC1G1AD5F5 A7
40202NDSAXV1G1AD5F5 A7
40203NDSB611G1AD1F5 A7
40101NSPFCP1G1AB5F5 A7
XXX5 DRAMTUKS1004375ZY5
16203NPQPPY1G4HB5EM AU
16203NPQPSS1G4HB5EM AU
//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=(10,8,CH,EQ,C'DRAMTUKS'),
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
OUTFIL FNAMES=T1,BUILD=(1,88)
OUTFIL FNAMES=T2,INCLUDE=(89,1,CH,EQ,C' '),BUILD=(1,88)
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//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
REFORMAT FIELDS=(F1:1,27,F2:10,15)
INREC IFTHEN=(WHEN=(10,8,CH,EQ,C'DRAMTUKS'),BUILD=(1,27)),
IFTHEN=(WHEN=NONE,BUILD=(1,27,30:28,15))
SORT FIELDS=COPY |
SORTOUT
Code: |
XXX5 DRAMTUKS1004316ZY1
40101NDSXR91G1AD5F5 A7 DRAMTUKS1004316
40101NDSYSB1G1AD5F5 A7 DRAMTUKS1004316
40101NDSZSC1G1AD5F5 A7 DRAMTUKS1004316
40202NDSAXV1G1AD5F5 A7 DRAMTUKS1004316
40203NDSB611G1AD1F5 A7 DRAMTUKS1004316
40101NSPFCP1G1AB5F5 A7 DRAMTUKS1004316
XXX5 DRAMTUKS1004375ZY5
16203NPQPPY1G4HB5EM AU DRAMTUKS1004375
16203NPQPSS1G4HB5EM AU DRAMTUKS1004375 |
|
|