конвертировать comp-2 в буквенно-цифровой в cobol

Question

У меня есть копия с несколькими переменными COMP-2, которые мне нужны в алфавитно-цифровой форме для целей DISPLAY. Я пробовал MOVE, REDEFINES, MOVE с числовым, а затем в буквенно-цифровой и ничего не работает.

Answer 1

Вот программа:

ID DIVISION. 
    PROGRAM-ID DISPLEXP. 
    DATA DIVISION. 
    WORKING-STORAGE SECTION. 
    01 SOME-NAME     COMP-2. 
    01 SOME-OUTPUT       PIC -9.9E-99. 
    PROCEDURE DIVISION. 
     MOVE -2.3E-6     TO SOME-NAME 
             SOME-OUTPUT 
     DISPLAY 
       ">" 
       SOME-NAME 
       "<" 
       ">" 
       SOME-OUTPUT 
       "<" 
     GOBACK 
     . 

Выход:

>-.23000000000000000E-05<>-2.3E-06< 

Если вы можете уточнить свой вопрос, я уверен, что есть ответ доступны.