COBOL 中的 ROUNDED 语句

Question

我需要编写一段代码，将 4 位小数数据四舍五入为 2 位小数数据。

VAR-A PIC S9(15)V9(4) VALUE 1111.1294
VAR-B PIC S9(15)V99   VALUE ZERO.

当我将 VAR-A 移动到 VAR-B 时，预期值为 1111.13，而不是我得到 1111.12 有人可以帮我解决我需要做的事情吗？

我正在使用以下声明。

MOVE VAR-A TO VAR-B

Answer 1

您可以使用 COMPUTE 指令进行舍入。

计算 VAR-B 四舍五入 = VAR-A * 1

祝你有美好的一天。