Cobol 十进制转十六进制

---

提示：写完文章后，目录可以自动生成，如何生成可参考右边的帮助文档

---

COMP型、COMP-3型数据的存储结构及运用

---

一、COMP型是什么

以定点二进制的方式存储的数据类型，也就是将一个十进制的数值转化为二进制再进行存储，因为COMP型的数据是用计算（也就是说不用转10进制打印），使用定点二进制将会非常高效。

二、应用

9(1) COMP ~ 9(4) COMP 占2个byte
9(5) COMP ~ 9(9) COMP 占4个byte
9(23) COMP > X >9(9) COMP 占8个byte

9(4)COMP转X(2) 代码如下：

...
*
DATA DIVISION.
*
WORKING-STORAGE SECTION.
*
01 WS-TEST-DATA.
  05 WC-NUM         9(4) COMP VALUE ZERO. 
  05 WC-NUM-COMP    9(4) COMP VALUE ZERO. 
  05 FILLER         REDEFINES WC-NUM-COMP.
    10 WC-NUM-X     X(4).
*
...
PRECEDURE DIVISION.
  MOVE 162        TO WC-NUM
  MOVE WC-NUM     TO WC-NUM-COMP
  DISPLAY "WC-NUM: " WC-NUM
  DISPLAY "WC-NUM-COMP: " WC-NUM-COMP
  DISPLAY "WC-NUM-X: " WC-NUM-X
...

输出结果如下
hex off

WC-NUM: 162
WC-NUM-COMP:
WC-NUM-X:

hex on

-----------------------
WC-NUM:  162
F...   4FFFF
F...   00162
-----------------------
WC-NUM-COMP:  s
F...        40A
F...        002
-----------------------
WC-NUM-X:  s
F...     40A
F...     002

---