Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
I believe this DFSORT job will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(81:14,4,ZD,ADD,+1,EDIT=(TTTT),85:8,2,87:11,2)
OUTFIL OMIT=(81,8,CH,LT,DATE1),BUILD=(1,80)
/*
|
|
|