如何在cobol中打印小数点？

Posted 2023-02-16

【中文标题】如何在cobol中打印小数点？

【英文标题】：How to print decimal points in cobol?

【发布时间】：2014-11-11 06:38:53

【问题描述】：

我希望线轴中的数据为十进制格式。如何打印带小数点的数据。我用过

Pic 99v99

对于我的数据定义，但当我DISPLAY它时，结果中没有显示小数点。

12.34为我的数据值显示为1234

【问题讨论】：

下次来的时候别忘了接受@petit.t的回答。

【参考方案1】：

99V99 中的 V 只是一个“不可见”的小数点，它为任何定点操作设置正确的对齐方式。它的优点是不占用任何额外的内存。如果您想要显示的逗号，请使用 PIC 子句，如 99.99，它将

多占用一个字节 仅适用于USAGE DISPLAY，不适用于COMP-fields

注意：使用 DECIMAL-POINT IS COMMA 时，您必须将 PIC 子句相应地更改为：PIC 99,99

【讨论】：

我认为PIC 99.99 也适用于未签名的 COMP 变量。如果您使用带符号的 COMP 变量练习案例，则需要将目标变量数据类型更改为 PIC -99.99。

这不是问题的一部分，但值得考虑：如何处理 S9.9？ S 与“.”无效