COBOL压缩十进制场景下数组与表处理异常输出原因咨询

问题背景 #

练习COBOL的数组处理与表操作功能时遇到了输出异常，相关代码和输出如下：

相关代码 #

01  TABLE-VALUES.                      
    05 TABLE-ELEMENTS OCCURS 2 TIMES. 
       10 A-A PIC X(5).                
       10 A-B PIC S9(5)V99 COMP-3.     
01  WS-STRING PIC X(10).               
01  S PIC 99.                          
01  WS-COUNT PIC 99.                   
...
PROCEDURE DIVISION.                                       
0000-MAIN.                                                
    DISPLAY 'HELLO WORLD'                                 
    MOVE '1234567890ABCDEFGHI' TO TABLE-VALUES            
    DISPLAY 'TABLE VALUES ' TABLE-VALUES                  
    MOVE 0 TO WS-COUNT                                    
    INSPECT TABLE-VALUES TALLYING WS-COUNT FOR CHARACTERS 
    DISPLAY WS-COUNT                                      
    PERFORM 1000-PARA VARYING S FROM 1 BY 1 UNTIL S > 2  
    STOP RUN.                                             
1000-PARA.                                                
    MOVE 'A-A(&&) = ' TO WS-STRING                        
    INSPECT WS-STRING REPLACING FIRST '&&' BY S          
    DISPLAY WS-STRING A-A(S)  
    MOVE 'A-B(&&) = ' TO WS-STRING              
    INSPECT WS-STRING REPLACING FIRST '&&' BY S 
    DISPLAY WS-STRING A-B(S).

程序输出 #

HELLO WORLD                                                                     
TABLE VALUES 1234567890ABCDEFGHI                                                
18                                                                              
A-A(01) = 12345                                                                 
A-B(01) =  6 7 8                                                                
A-A(02) = 0ABCD                                                                 
A-B(02) =  5 6 7 

疑问点：为什么A-B(1)与A-B(2)的输出中间有空格？原赋值内容里的数字9去了哪里？

原因解答 #

1. COMP-3类型的存储规则 #

你定义的A-B是S9(5)V99 COMP-3类型，属于压缩十进制存储：

• 每个字节存放2位十进制数字，最后一个字节的低4位专门存放符号位
• 总长度计算为（有效数字位数+1）/2向上取整，你这里5位整数+2位小数共7位数字，加1位符号位，共占4个字节
• 只有最后4位为C/D/F等约定值时才是合法的COMP-3数值，非法的半字节值会被识别为不可打印字符，输出时显示为空格

2. 直接MOVE字符串到组项的问题 #

你直接把明文字符串MOVE到包含COMP-3字段的组项TABLE-VALUES，本质是按字节直接覆盖存储，不会做任何类型转换，存进去的是字符的ASCII编码，不是合法的COMP-3数值：

• 每个TABLE-ELEMENTS长度为A-A的5字节 + A-B的4字节 = 9字节，两个条目总长度18字节，所以你赋值的19位字符串最后一位I被截断
• 第一个A-B(1)对应的4个字节内容是字符6/7/8/9的ASCII编码0x36/0x37/0x38/0x39，拆分后得到的半字节值为3/6/3/7/3/8/3/9，最后一位9是非法符号位，不会被识别为有效数字，所以你看不到数字9，非法的半字节3输出为空格，最终显示6 7 8
• 第二个A-B(2)对应的4个字节内容是字符E/F/G/H的ASCII编码0x45/0x46/0x47/0x48，拆分后半字节值为4/5/4/6/4/7/4/8，最后一位8是非法符号位，非法的半字节4输出为空格，最终显示5 6 7

3. 修复建议 #

不要直接把字符串MOVE到包含数值类型字段的组项，如果需要给COMP-3字段赋值，应当先把字符串内容转换为合法数值，再单独赋值给对应的COMP-3字段。

内容的提问来源于stack exchange，提问作者Roger Strycova