将 comp-2 转换为 cobol 中的字母数字

Question

我有一本带有几个 COMP-2 变量的抄写本，我需要以字母数字形式显示它们。我试过移动、重新定义、移动到数字然后再到字母数字，但似乎没有任何效果。

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<

如果你能澄清你的问题，我相信会有答案。

将 comp-2 转换为 cobol 中的字母数字

convert comp-2 to alphanumeric in cobol

cobol

mainframe