Search code examples
cobolmainframe

How to print decimal points in cobol?

I want the data to be in decimal format in the spool. How can I print the data with decimal points. I have used 

Pic 99v99

for my data-definition, but it is not showing a decimal-point in the result when I DISPLAY it.

12.34 for the value of my data is displayed as 1234

Solution

  • The V in 99V99 is just an "invisible" decimal-point that sets the correct alignment for any fixed-point-operations. It has the advantage that it doesn't take up any additional memory. If you want a comma that is displayed use a PIC-clause like 99.99 which will

    • take up one more byte
    • only work with USAGE DISPLAY, not on COMP-fields

    Note: When using DECIMAL-POINT IS COMMA you have to change the PIC-clause accordingly to: PIC 99,99