COBOL工作存储变量出现多余尾随零、计算结果异常问题咨询

问题背景 #

开发了一款用于计算最多15个整数平均值的COBOL程序，运行后输出数值远大于预期，附带大量多余尾随零。
相关代码如下：

Data Division.
       Working-Storage Section.
       01 WS-COUNTER          PIC 9(10).
       01 WS-INPUT-TOTAL      PIC 9(10).
       01 WS-NEXT-INPUT       PIC X(8).
       01 WS-CONVERTED-INPUT  PIC 9(8).
       01 WS-AVG              PIC 9(8)V99.

       Procedure Division.
       PROG.
           PERFORM INIT-PARA
           PERFORM ADD-PARA UNTIL WS-COUNTER = 15 OR WS-NEXT-INPUT = 'q'
           PERFORM AVG-PARA
           PERFORM END-PARA.
       INIT-PARA.
           DISPLAY 'This program calculates the average of inputs.'.
           MOVE ZERO TO WS-COUNTER
           MOVE ZERO TO WS-INPUT-TOTAL
           MOVE ZERO TO WS-AVG.
       ADD-PARA.
           DISPLAY 'Enter an integer or type q to quit: '
           ACCEPT WS-NEXT-INPUT
           IF WS-NEXT-INPUT NOT = 'q'
               MOVE WS-NEXT-INPUT TO WS-CONVERTED-INPUT
               ADD WS-CONVERTED-INPUT TO WS-INPUT-TOTAL
               ADD 1 TO WS-COUNTER
           END-IF.
       AVG-PARA.
           IF WS-COUNTER > 1
               DIVIDE WS-INPUT-TOTAL BY WS-COUNTER GIVING WS-AVG
               DISPLAY 'Your average is ' WS-AVG '.' WS-NEXT-INPUT
           END-IF.

初始设计逻辑 #

将WS-NEXT-INPUT定义为字母数字类型，当IF条件判定输入不是'q'时，将其MOVE到数值类型的WS-CONVERTED-INPUT中，以此支持输入'q'跳出UNTIL循环，判定为有效数值输入后即可使用数值变量执行算术运算。

复现情况 #

• 测试输入：依次输入10、15两个整数，最后输入q退出
• 已知控制台问题：多数情况下第一个输入的10会被强制显示在左上角，该现象无需排查
• 实际运行输出：

10is program calculates the average of inputs.
Enter an integer or type q to quit:
15
Enter an integer or type q to quit:
q
Your average is 1250000000.

• 异常表现：预期平均值结果应为00000012.50，实际输出为1250000000。调试输出其余变量时，除WS-INPUT-TOTAL外其余变量值基本符合预期：输入10和15的场景下，WS-INPUT-TOTAL值为0025000000，而非预期的0000000025。

根因分析 #

异常来自COBOL不同类型字段MOVE操作的对齐规则与字符转换逻辑：

1. 用户输入短整数（如10）时，WS-NEXT-INPUT作为长度8的字母数字字段，存储内容为前两位是'1'、'0'，后6位为空格的字符串。
2. 直接将字母数字字段MOVE到WS-CONVERTED-INPUT（PIC 9(8)，8位整数）时，COBOL不会自动将输入的数值右对齐到个位位置，多数编译器会将字段内的尾随空格转换为0，相当于把输入的10放到了8位整数的最高两位，后面补6个0：10直接变为10000000，15变为15000000。
3. 两个值相加得到25000000，存入长度10的WS-INPUT-TOTAL后就是0025000000，和调试观测到的异常值一致。
4. 计算平均值时，25000000除以2得到12500000，存入WS-AVG（PIC 9(8)V99，V代表隐含小数点在最后两位之前）时，实际存储值为12500000.00。由于DISPLAY数值字段时不会输出隐含小数点，直接输出全部10个数字位就得到了1250000000的错误结果。

修复方案 #

• 优先使用NUMVAL函数做类型转换：该函数会自动处理输入字符串的前后空格，将其正确转换为对应数值，避免手动MOVE的对齐问题，修改ADD-PARA中类型转换部分代码即可：

IF WS-NEXT-INPUT NOT = 'q'
    COMPUTE WS-CONVERTED-INPUT = FUNCTION NUMVAL(WS-NEXT-INPUT)
    ADD WS-CONVERTED-INPUT TO WS-INPUT-TOTAL
    ADD 1 TO WS-COUNTER
END-IF

• 平均值显示优化：将WS-AVG改为编辑型数值字段，比如定义为PIC Z(7)9.99，DISPLAY时会自动输出小数点，同时自动去除多余前导零。
• 可选加固：增加输入合法性校验，判断输入内容是否全为数字，避免非数值输入导致的运行异常。

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