MVSFORUMS.com

[jathampy]

I am having an input file with 10 amount fields that contain decimal numbers but decimal point is not always guaranteed. I need to convert each of these amount fields into COMP-3 of length 5. The maximum number of digits before decimal point is 5 and 4 digits after decimal point.

I tried using

1,10,SFF,PD,LENGTH=5 in INREC statement

and then checked the output file using the Cobol copybook field PIC S9(5)V9(4) COMP-3. The values are coming correctly only for the records that contain 4 digits after decimal point .(e.g 1311.1234). The first record is coming incorrectly as 0.1111 instead of 11.11

I think if I maintain 4 decimals for every record then it should work. But challenge is to convert the amount field into 5 digits before decimal point and 4 digits after decimal point.

It would be great if I can get help on this.

Sample input file

[kolusu]

jathampy,

You have been a member of site for nearly 15 years and yet you don't follow the simple rule of "search before posting"

If you did a search for Decimal in the Utilities forum, you would have found the answer in a topic that you started

https://www.mvsforums.com/helpboards/viewtopic.php?t=12976&highlight=decimal

Hope you can improvise the solution to handle trailing zeros for decimals.
_________________
Kolusu
www.linkedin.com/in/kolusu

[jathampy]

Thanks Kolusu. The one mentioned in the link previously work only for two fixed decimal digits.As per the new requirement the number of digits after decimal places can vary between 0 and 4. It worked with the below sort card. I just set a decimal point at the last position of the number field, if the number doesn't contain any decimal point. After that use PARSE to split the numbers before and after decimal point and then add leading zeros to the integer part and trailing zeros to the fractional part

[kolusu]