如何在cobol中打印小数点?

Par*_*thi 6 cobol mainframe

我希望数据在假脱机中以十进制格式显示.如何打印带小数点的数据.我用过

Pic 99v99
Run Code Online (Sandbox Code Playgroud)

对于我的数据定义,但是当我DISPLAY没有在结果中显示小数点时.

12.34 对于我的数据的值显示为 1234

pie*_*t.t 5

V99V99只是一个"看不见"的小数点,用于设置任何固定点的操作正确对齐.它的优点是它不占用任何额外的内存.如果您希望显示一个逗号使用PIC-clause像99.99这将

  • 再拿一个字节
  • 只能使用USAGE DISPLAY,而不是在COMP现场

注意:使用DECIMAL-POINT IS COMMA时必须相应地更改PIC-clause:PIC 99,99