Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for:
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/20)
//SORTOUT DD DSN=... output file (FB/20)
//SYSIN DD *
INCLUDE COND=(7,2,CH,EQ,C'00')
SORT FIELDS=(1,6,CH,A)
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,6,
TRAILER3=(1,6,X,COUNT=(M11,LENGTH=7)))
/*
|
|
|
