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=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:1,10)),
IFTHEN=(WHEN=(1,10,CH,EQ,C' '),OVERLAY=(81:71,10))
SORT FIELDS=(81,10,CH,A)
OUTREC BUILD=(1,80)
/*
|
|
|