我的情况如下。
我正在将文件中的输入读入以下工作存储字段:
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 字段的最佳方法是什么?
在此先感谢您的时间!