如何手动解析COMPUTATIONAL-3类型DATE数据的HEX ON输出

数据背景 #

声明的COBOL数据项：

04 DATE PICTURE 9(9) COMPUTATIONAL-3.

执行HEX ON后得到十六进制输出：

00936
2100F

解析步骤 #

COMP-3是COBOL的压缩十进制格式，核心规则是每两个十进制数字存1个字节，最后1个字节的低4位是符号位（F代表正数，D代表负数）。解析步骤如下：

• 拼接完整十六进制序列：把两行输出按顺序拼接，得到完整的10位十六进制串009362100F，拆分为5个字节：00 93 62 10 0F。
• 拆分半字节提取数字与符号：每个字节拆成两个4位半字节，前8个半字节是数字位，最后1个半字节是符号。拆分后得到数字位：0、0、9、3、6、2、1、0、0，符号位为F（正数）。
• 生成最终数值：把所有数字位按顺序拼接，得到009362100，结合符号为正，最终十进制数值为9362100（前导零可忽略）。
• DATE字段含义参考：9位的DATE字段通常可能是CCYYDDD格式（世纪+年份+儒略日），也可能是自定义编码规则，需结合业务场景确认。

核心注意事项 #

• COMP-3字段的字节数计算公式：(数字位数 + 1) / 2，这里9位数字对应5字节，和十六进制串长度匹配。
• 符号位常见取值：F（正）、D（负），部分系统用C表示正数。

内容的提问来源于stack exchange，提问作者Ahmed SEDDIK