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: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AAA
BBB
AAA
CCC
AAA
DDD
BBB
//SORTOUT DD DSN=&&TEMP,DISP=(NEW,PASS)
//SYSIN DD *
INREC FIELDS=(1,3,C'-',7:SEQNUM,8,ZD)
SORT FIELDS=(1,3,CH,A)
OUTREC FIELDS=(1,4,SEQNUM,2,ZD,RESTART=(1,3),7,8)
/*
//S2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=&&TEMP
//SORTOUT DD DSN=Output.File
//SYSIN DD *
SORT FIELDS=(7,8,CH,A)
OUTREC FIELDS=(1,6)
/* |
|
|