variables - 如何将实十进制值传递为虚拟十进制值？

Question

我有一个PIC 9(14).9(2)从传入文件接收数据的变量。我希望将它传递给一个报告变量，即PIC 9(14)V9(2). 无法更改传入数据的格式。有什么办法可以将一个值传递给另一个值？

Answer 1

您还可以在这里查看：如何在 COBOL 中的 PIC X 子句上重新定义和执行算术运算，这（可能）是一个类似的主题（尽管输入数据的格式从未得到确认）

Answer 2

pic 9(14).9(2) 本质上是一个 Pic X 字段。您可以设置重新定义字段或使用参考修改

IE

       03 F1                 PIC 9(14).9(2).
       03 filler redefines F1.
          05 F1-Int          pic 9(14).
          05 filler          pic X.
          05 F1-decimal      pic 9(2).

       03 F2                 PIC 9(14)V9(2).
       03 filler redefines F2.
          05 F2-Int          pic 9(14).
          05 F2-decimal      pic 9(2).

       Move F1-int          to f2-int.
       Move F1-decimal      to f2-decimal.

or    
       Move F1(1:14)        to F2(1:14).   
       Move F1(16:2)        to F2(15:2).   // Forgoten the correct format for cobol