将整数从InFile转换为OutFile作为Cobol中的浮点数

问题描述

我有一个package.json，其中包含一些整数值，这些整数值存储在InFile.dat中的记录中。当我将其添加到SomeFile.cob时，无法获取要转换为浮点数的整数。

OutFile.dat

如何将它作为浮点数存储在out文件中？

解决方法

PIC 9V99不是 浮点，而是具有保证精度的定点整数值。

它不会在内存中存储小数点，因此它不是输出文件的一部分，这很好（v是暗示的小数点，仅在对运行时间的影响取决于字段定义。

要输出此结果，您可以使用一个明确显示的输出字段（您不应对其进行任何计算）：

       01 someFixedPoint PIC 9V99.
       01 someEdited     PIC 9.99. *> use "," when DECIMAL-POINT IS COMMA

           MOVE someFixedPoint TO someEdited
           WRITE PrintLine FROM someEdited