Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
The following DFSORT JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0001 00005
0001 00006
0002 00001
0003 00008
0006 00004
0006 00001
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,4,CH,A)
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,4,
TRAILER3=(1,5,TOT=(6,5,ZD,M11,LENGTH=5),X,COUNT=(M11,LENGTH=3)))
//*
|
Hope this helps..
cheers |
|