Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
use the following DFSORT JCL
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=your input file FB 100 file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OMIT COND=(1,3,SS,EQ,C'HDR,TLR')
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,BUILD=(50X),
TRAILER1=('OUTPUT FILE',/,/,'COUNT = ',COUNT=(M11,LENGTH=15))
//* |
|
|