为何COBOL程序未触发预期的S0C7 Abend？求技术解答

为什么未触发S0C7 Abend？ #

1. 默认编译选项不做数据有效性校验：Enterprise COBOL 4.2默认不对DISPLAY类型数值字段执行严格数字校验。将非数字的ABCDE移动到NUMERIC-FIELD（PIC 9(3)V9(2)）时，仅做字节复制操作，不会触发错误；后续ADD运算中，CPU尝试将非数字EBCDIC字符解析为数值，默认编译逻辑跳过了校验，甚至将无效字符强制按字节值解析出异常结果（你看到的34700就是这种无效解析的产物）。
2. 文件状态检查逻辑失效：你的FD定义未指定FILE STATUS IS INFILE-STA，INFILE-STA不会被COBOL运行时正确更新，始终为初始空格值，导致OPEN和READ后的错误判断完全不起作用。

技术解决方案 #

• 启用严格校验编译选项：编译时添加NUMCHECK(MOVE,ARITH)选项，编译器会在以下场景触发错误：

  • 非数字数据移动到数值字段
  • 对含非数字数据的数值字段执行算术运算
    启用后，代码会在MOVE或ADD步骤触发S0C7，符合你的测试预期。

• 显式检查输入数据合法性：移动数据前，用COBOL的NUMERIC条件判断输入是否为有效数字：

  DISPLAY 'REC IS ------>' INFILE-REC                         
  IF INFILE-REC IS NUMERIC
      MOVE INFILE-REC      TO NUMERIC-FIELD                       
  ELSE
      DISPLAY 'ERROR: NON-NUMERIC DATA:' INFILE-REC
      GO TO 000-MAIN-EXIT
  END-IF
  MOVE INFILE-REC TO ALPHANUMERIC-FIELD
  

• 修正文件状态定义：在FD中添加FILE STATUS子句，确保文件操作状态被正确捕获：

  FD  INFILE FILE STATUS IS INFILE-STA.
  

• 用COMP-3强化数据校验：若需要更严格的数值存储，将NUMERIC-FIELD定义为压缩十进制类型（COMP-3），压缩十进制对格式要求严格，无效数据会直接触发S0C7：

  01 NUMERIC-FIELD     PIC 9(3)V9(2) COMP-3 VALUE 0.
  

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