Alissa Margulies
SYNCSORT Support
Joined: 25 Jul 2007
Posts: 496
Location: USA
|
|
|
|
Here is a SyncSort for z/OS job that will produce your requested output if your data is already in sorted order:
| Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTIN DD *
A01 RECORD 1
A02 RECORD 2
A02 RECORD 3
A03 RECORD 4
A03 RECORD 5
A03 RECORD 6
A03 RECORD 7
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,3,TRAILER3=(1,80))
/* |
If it is not pre-sorted based on the key field (1,3), then change the sort statement to:
| Code: |
| SORT FIELDS=(1,3,CH,A),EQUALS |
|
|
