0

我的情况如下。

我正在将文件中的输入读入以下工作存储字段: WORKING-STORAGE SECTION.

01 WORK-FIELDS. 05 W1-INPUT. 10 TESTCASE-NUMBER PIC X(02). 10 PIC X(01). 10 TESTCASE-ID PIC X(18). 10 PIC X(01). 10 TESTCASE-CONTENT PIC X(20).

根据 TESTCASE-ID 包含的内容,我最终必须将 TESTCASE-CONTENT 字段的内容移动到以下字帖中的 AMOUNT-DECIMAL-FORMAT 或 AMOUNT-DECIMAL-NUMBER 字段中:

05 (*)AMOUNT. 10 AMOUNT-DECIMAL-FORMAT PIC S9(18) COMP-3. 10 AMOUNT-DECIMAL-NUMBER PIC S9(01) COMP-3. 10 AMOUNT-IN-XML-FORMAT PIC N(20).

然后我必须调用另一个程序来处理这些参数并填写 AMOUNT-IN-XML-FORMAT 字段。

无论如何,所以我的问题是:将我的 PIC X 字段的内容移动到我的 S9 COMP-3 字段的最佳方法是什么?

在此先感谢您的时间!

4

0 回答 0