Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Those would be 10-byte PD fields. You can convert them to 18-byte ZD fields using a DFSORT INREC statement. Here's a DFSORT job that shows how. I assumed the 10-byte PD field starts in position 11 and the input file has RECFM=FB and LRECL=80, but you can change the job appropriately for other positions and attributes.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/88)
//SYSIN DD *
OPTION COPY
INREC FIELDS=(1,10,
11,10,PD,TO=ZD,LENGTH=18,
21,60)
/*
|
|
|