COBOL程序无法读取至文件末尾问题求助

以下针对你遇到的「仅能读取文件第一个数字、无法循环读取至终止符99999999」问题，列出核心排查点与修复方案：

1. 循环读取逻辑错误 #

最常见的原因是未正确构建循环读取逻辑，或循环终止条件触发异常：

• 确保使用PERFORM UNTIL或PERFORM WITH TEST AFTER构建循环，且每次读取后更新判断条件。示例代码：

  WORKING-STORAGE SECTION.
  01 WS-END-FLAG PIC X VALUE 'N'.
  01 WS-RECORD PIC X(80).
  
  PROCEDURE DIVISION.
  MAIN-LOGIC.
      OPEN INPUT INPUT-FILE
      PERFORM UNTIL WS-RECORD(1:8) = '99999999' OR WS-END-FLAG = 'Y'
          READ INPUT-FILE INTO WS-RECORD
              AT END SET WS-END-FLAG TO 'Y'
          END-READ
          IF WS-END-FLAG = 'N'
              * 处理当前记录（比如输出前8位数字）
              DISPLAY 'CURRENT ID: ' WS-RECORD(1:8)
          END-IF
      END-PERFORM
      CLOSE INPUT-FILE
      STOP RUN.
  

• 注意：必须处理AT END情况，避免因文件提前结束导致循环异常终止。

2. 文件定义与I/O设置不匹配 #

检查文件控制段与数据段的定义是否符合行式文件要求：

• 在FILE-CONTROL中指定ORGANIZATION IS LINE SEQUENTIAL，确保程序按行读取：

  ENVIRONMENT DIVISION.
  INPUT-OUTPUT SECTION.
  FILE-CONTROL.
      SELECT INPUT-FILE ASSIGN TO 'INPUT.TXT'
          ORGANIZATION IS LINE SEQUENTIAL
          ACCESS MODE IS SEQUENTIAL.
  

• 确认FD段的记录长度与测试数据一致（每行8位数字+72空格=80字节）：

  DATA DIVISION.
  FILE SECTION.
  FD INPUT-FILE
      RECORDING MODE F
      LABEL RECORDS STANDARD.
  01 INPUT-RECORD PIC X(80).
  

3. 终止条件判断错误 #

• 确保判断终止符的代码是针对记录的前8位，而非整个记录或其他字段，比如不要误写为WS-RECORD = '99999999'（忽略后续72空格会导致匹配失败）。
• 检查终止符99999999是否为文本格式（用单引号包裹），如果测试数据是数字型，需对应使用数值比较（比如WS-RECORD-NUM = 99999999，此时要将前8位定义为数字字段）。

4. 测试数据格式验证 #

• 确认测试数据的每行严格符合「8位数字+72空格」的格式，无隐藏的特殊字符（如多余的回车、换行）或长度异常。
• 用文本编辑器的十六进制查看模式，检查每行的长度是否为80字节，行终止符是否符合操作系统要求（Windows为CR+LF，Unix为LF）。

调试建议 #

在每次READ操作后添加打印语句，输出当前读取的完整记录，确认程序是否真的未读取后续记录，还是读取后因判断逻辑错误未处理：

READ INPUT-FILE INTO WS-RECORD
    AT END SET WS-END-FLAG TO 'Y'
END-READ
DISPLAY 'READ CONTENT: ' WS-RECORD

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