cobol中comp-3假定的decimal类型变量上的引用修改移动

Question

如何在cobol中对comp-3假设的decimal类型变量执行引用修改move。我在ws部分中有以下变量

01 num1 s9(7)v9(2) comp-3 value 5489.00

02 num2 9(12)

我需要将num1的值作为000000548900存储到num2中。

Answer 1

不要使用引用修改。使用：

multiply num1 by 100 giving num2

而不是。

Answer 2

您可以将num2的PICTURE更改为PIC 9(10)V99。