Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
YK.Dev,
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
123 M CS 64858
234 D DB 45645
434 D CS 64858
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(9,2,CH,A)
OUTFIL REMOVECC,NODETAIL,
HEADER2=('Source',16:'Count'),
SECTIONS=(9,2,
TRAILER3=(9,2,16:COUNT=(EDIT=(IIIIT))))
/*
|
|
|