问题描述
如何从示例中移动数据： 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