Как переместить поле PIC X в поле PIC S9 COMP-3 в COBOL?
Моя ситуация следующая.
Я читаю ввод из файла в следующее рабочее поле:
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?
Спасибо заранее за ваше время!