Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like the following to do what you asked for:
Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
1111 AAA A12
1111 AAA A12
1111 AAA A13
1122 AAB B11
1123 BBB C11
1123 BBB C11
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,12,CH,A)
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,12,
TRAILER3=(1,12,X,COUNT=(EDIT=(TTTT))))
/*
|
If the records are already in sorted order as shown in your example, using:
instead of:
would be more efficient. |
|