Convert numeric to packed decimal using SORT

tarunbhardwajleo · Posted: Thu Apr 12, 2007 2:25 am

I have 3 kinds of records in my file - type 10, type 20 and type 30. Type of record is present in the first 2 bytes of the record. I have a single type 30 record that contains a numeric of 8 bytes with leading zeros compressed starting from position 3 till position 10 in the record. My task is to convert this 8 byte numeric field into a packed decimal of 5 bytes, thats S9(9) comp-3. I just need to convert the type 30 record. The remaining type 10 and type 20 records need not be converted. I would prefer to use sort (PGM=SORT) if possible.

Thanks in advance !

Sample data in the file looks like:

Frank Yaeger · Posted: Thu Apr 12, 2007 2:52 am

Here's a DFSORT job that will do what you asked for. Since you're going from an 8-byte field to a 5-byte field, I overlaid 3 blanks after the 5-byte field.

tarunbhardwajleo · Posted: Thu Apr 12, 2007 3:12 am

Hi Frank,

Thanks for the reply... Iam sorry, I forgot to mention that our shop doesn't have DFSORT. Can we use the same code using PGM=SORT ? But in that case I think that the overlay parameters might vary.....

Frank Yaeger · Posted: Thu Apr 12, 2007 4:14 am