Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
manugeorge2004,
Try this DFSORT JCL
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
RECORD # 01
RECORD # 02
RECORD # 03
RECORD # 04
RECORD # 05
RECORD # 06
RECORD # 07
RECORD # 08
RECORD # 09
RECORD # 10
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC OVERLAY=(81:SEQNUM,8,ZD)
SORT FIELDS=(81,8,CH,D)
OUTREC BUILD=(1,80)
/* |
|
|