cobol - COBOL：将 PIC X 移动到 PIC S9.99 COMP-3

Question

如何从示例中移动数据：I-DATA PIC X7 VALUE '12.34'。至 O-DATA PIC S9(13)V99 COMP-3。

标签： cobolmainframe

Answer 1

   05 I-DATA PIC X(7).
   05 I-NUMERIC REDEFINES I-DATA PIC 9999.99.
   .
   .
   MOVE I-NUMERIC TO O-DATA.

您需要将 AlphaNumerc 重新定义为显示数字，然后可以将其移动到压缩十进制变量。小心，因为如果除了数字或空格加上“。”之外还有任何其他内容，这将被 OC7 炸毁。在数据中。