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=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0012345678 A
0012345678 P
0012345678 P
0012345678 P
0012345679 A
0012345679 A
0012345679 P
0012345679 P
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,12,CH,A)
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,12,
TRAILER3=(1,12,X,COUNT=(EDIT=(IIT))))
/*
|
|
|