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/33)
//SORTOUT DD DSN=... output file (FB/33)
//SYSIN DD *
OPTION COPY
RECORD TYPE=F
INREC PARSE=(%=(ABSPOS=12,ENDAT=C' '),
%1=(FIXLEN=1)),
OVERLAY=(34:%1)
OUTFIL INCLUDE=(34,1,CH,NE,C' '),BUILD=(1,33)
/*
|
|
|