Convert invalid PD data to valid one

nitin_agr · Posted: Sat Dec 09, 2006 8:34 pm

Hi Friends;
I am facing a small problem, please have a look and help me for the same.

I have an input dataset of 6 bytes, with a field typer packed decimal 6 bytes, cobol copybook data type PIC S9(11) COMP-3

In my input dataset, it has value as X'000000000064', I want to convert the value to edit clause so that I can view 100 instead of hexadecimal value. Also, I dont want the record length to be changed after formatting.

I tried many ways to convert it but couldn't suceeded.
Please suggest.

Frank Yaeger · Posted: Sat Dec 09, 2006 9:50 pm

X'000000000064' is NOT a PD value and not PIC S9(11) COMP-3. It's actually a 6-byte BI value of 100. So you can convert it using:

p,6,BI,M10,LENGTH=6

or whatever edit mask you like.

Note that a 6-byte BI value can result in more than 6 digits, but I used LENGTH=6 since you said you don't want to change the length. So this could result in truncation. LENGTH=15 would prevent truncation.