Alissa Margulies
SYNCSORT Support
Joined: 25 Jul 2007 Posts: 496 Location: USA
|
|
|
|
Here is a SyncSort for z/OS 1.2 job that will produce your requested output:
Code: |
//SORT1 EXEC PGM=SORT
//SORTIN DD *
KEY1 DATA1 DATA2
DATA3 DATA4
KEY2 DATA1 DATA2
DATA3 DATA4
DATA5 DATA6
KEY3 DATA1 DATA2
DATA3 DATA4
DATA5 DATA6
//SORTOF01 DD DISP=(NEW,PASS),DSN=&&TEMP1,SPACE=(TRK,1),UNIT=SYSDA
//SORTOF02 DD DISP=(NEW,PASS),DSN=&&TEMP2,SPACE=(TRK,1),UNIT=SYSDA
//SYSOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,
OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,1,CH,NE,C' '),
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 FILES=01,INCLUDE=(1,1,CH,NE,C' ')
OUTFIL FILES=02,INCLUDE=ALL
/*
//STEP2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTJNF1 DD DISP=SHR,DSN=&&TEMP1
//SORTJNF2 DD DISP=SHR,DSN=&&TEMP2
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(81,8,A)
JOINKEYS FILE=F2,FIELDS=(81,8,A)
REFORMAT FIELDS=(F1:1,4,F2:5,76)
SORT FIELDS=COPY
/* |
|
|