COBOL新手求助：PERFORM UNTIL循环仅执行一次即退出

数据老陈

2026-5-20

嘿，作为摸爬滚打多年的COBOL老鸟，我一眼就瞅出你大概率踩了PERFORM循环的经典坑——尤其是UNTIL条件的判断时机问题！结合你描述的现象，咱们一步步拆解问题：

核心问题1：循环条件为假仍执行循环体

COBOL的PERFORM ... UNTIL默认是先执行循环体，再检查终止条件（行业里叫“TEST AFTER”）。也就是说，哪怕你的初始循环条件就是假，它也会硬跑一次循环体，然后才判断条件退出——这完全匹配你说的“模块检测到循环条件为假后执行循环内语句”的现象！

解决方法很简单，给循环加上TEST BEFORE关键字，让它先检查条件再执行循环体：

// 错误写法：先执行再判断
PERFORM 100-PROCESS-RECORD
    UNTIL WS-END-OF-FILE = 'Y'

// 正确写法：先判断再执行
PERFORM 100-PROCESS-RECORD
    TEST BEFORE
    UNTIL WS-END-OF-FILE = 'Y'

核心问题2：终止模块200-TERM-RECORD未执行

这种情况大概率是程序流程没走到终止模块，常见原因有两个：

循环退出后直接触发了终止指令（比如STOP RUN/GOBACK），跳过了终止模块的调用
检查你的主逻辑段，是不是漏了显式调用终止模块？比如：

MAIN-LOGIC.
    OPEN INPUT IN-FILE
    OPEN OUTPUT OUT-FILE
    PERFORM 100-PROCESS-RECORD TEST BEFORE UNTIL WS-END-OF-FILE = 'Y'
    PERFORM 200-TERM-RECORD  // 这里必须显式调用！
    CLOSE IN-FILE
    CLOSE OUT-FILE
    STOP RUN.

循环内触发了异常终止（比如文件读取错误未处理）
检查你的READ语句是否正确处理了AT END分支，如果没设置终止条件，程序可能直接异常退出：
```
100-PROCESS-RECORD.
    READ IN-FILE
        AT END MOVE 'Y' TO WS-END-OF-FILE  // 必须在这里标记文件结束
        NOT AT END PERFORM 150-FORMAT-RECORD
    END-READ.
```

额外排查点：循环条件未正确更新

你提到“后续未变更条件便重复流程并直接终止”，大概率是循环体里没有正确更新终止变量。比如READ的AT END分支没把WS-END-OF-FILE设为'Y'，导致条件一直为假，程序可能陷入异常循环后被强制终止，自然跳不过终止模块。

完整示例参考

给你贴一个标准的文件处理程序框架，对比着调整你的代码：

IDENTIFICATION DIVISION.
PROGRAM-ID. FILE-FORMATTER.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT IN-FILE ASSIGN TO 'INPUT.TXT'
        ORGANIZATION IS LINE SEQUENTIAL.
    SELECT OUT-FILE ASSIGN TO 'OUTPUT.TXT'
        ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD IN-FILE.
01 IN-RECORD PIC X(80).
FD OUT-FILE.
01 OUT-RECORD PIC X(80).
WORKING-STORAGE SECTION.
01 WS-CONTROL.
    05 WS-END-OF-FILE PIC X VALUE 'N'.
PROCEDURE DIVISION.
MAIN-LOGIC.
    OPEN INPUT IN-FILE
    OPEN OUTPUT OUT-FILE
    PERFORM 100-PROCESS-RECORD
        TEST BEFORE
        UNTIL WS-END-OF-FILE = 'Y'
    PERFORM 200-TERM-RECORD
    CLOSE IN-FILE
    CLOSE OUT-FILE
    STOP RUN.
100-PROCESS-RECORD.
    READ IN-FILE
        AT END MOVE 'Y' TO WS-END-OF-FILE
        NOT AT END PERFORM 150-FORMAT-RECORD
    END-READ.
150-FORMAT-RECORD.
    * 这里写你的格式化逻辑，比如截取、拼接字段
    MOVE IN-RECORD TO OUT-RECORD
    WRITE OUT-RECORD.
200-TERM-RECORD.
    * 终止逻辑：比如输出统计、标记结束
    MOVE '>>> PROCESSING COMPLETE <<<' TO OUT-RECORD
    WRITE OUT-RECORD.

最后建议你用调试器跟踪WS-END-OF-FILE的变化，看它什么时候被设置为'Y'，循环退出的时机是否符合预期——这是排查COBOL流程问题最直接的方法！

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