Joined: 06 Sep 2005 Posts: 28 Location: Minneapolis US
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.
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:
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.