我的情况如下。
我正在读取文件中的输入到以下工作存储字段：
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字段的最佳方法是什么？
提前感谢您的时间！