Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like this:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/19)
//SORTOUT DD DSN=... output file (FB/17)
//SYSIN DD *
OPTION COPY
INREC BUILD=(1,13,14,6,SFF,TO=PD,LENGTH=4)
/*
|
I used SFF (signed free form) format because you didn't say what the values in 14-19 look like. SFF will handle most values. You could use other formats depending on what the values actually look like, e.g. ZD for '01234'. |
|