Alissa Margulies
SYNCSORT Support
Joined: 25 Jul 2007
Posts: 496
Location: USA
|
|
|
|
Here is a SyncSort for z/OS job that will do what you asked:
| Code: |
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=INPUT.FILE1
//SORTOUT DD DISP=(NEW,PASS),DSN=&&TEMP1
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(6:C' ')
//*****************************************
//STEP2 EXEC PGM=SORT
//SORTIN DD DSN=INPUT.FILE2
//SORTOUT DD DISP=(NEW,PASS),DSN=&&TEMP2
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(6:C' ')
//*****************************************
//STEP3 EXEC PGM=SORT
//SORTJNF1 DD DSN=&&TEMP1,DISP=(OLD,DELETE)
//SORTJNF2 DD DSN=&&TEMP2,DISP=(OLD,DELETE)
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(6,1,A)
JOINKEYS FILES=F2,FIELDS=(6,1,A)
REFORMAT FIELDS=(F1:1,5,F2:1,5)
SORT FIELDS=COPY
/* |
|
|
