COBOL：将PIC X移至PIC S9.99 COMP-3

问题描述

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

解决方法

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

您需要将AlphaNumerc重新定义为显示数字，然后可以将其移动到打包的十进制变量。请注意，如果除数字或空格外加“。”，它将用OC7炸掉。在数据中。

,

您的pic的{​​{1}}子句是错误的（应该是PIC X（7））。

无论如何回答，请使用i-data

MOVE ... TO ... WITH CONVERSION ON EXCEPTION ... END-MOVE