MVSFORUMS.com

polo021 · Beginner Joined: 21 Apr 2006 Posts: 1 Topics: 1

Hello,
I would like to convert some fields of my file. The file was created using a cobol program. The fields are PIC 9(14)v9(4) comp-3 OR PIC 9(18 ) COMP-3. ...

Could you help my to unpack theses fields to a readable numeric format (zd?) using icetool.

Thank you very much

kolusu · Posted: Fri Apr 21, 2006 4:30 am Post subject:

polo021,

Assuming that your Input PD field starts from pos 1 for a length of 9 bytes then try this

Frank Yaeger · Posted: Fri Apr 21, 2006 11:07 am Post subject:

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.