为何COBOL程序读取文件时触发libcob隐式关闭警告并提前终止？

问题描述 #

• 程序需求：打开指定文件，逐行读取并显示符合条件的行，文件可正常打开且首次读取成功。
• 异常现象：使用PERFORM read-cal-file UNTIL cal-eof循环读取时，仅执行一次读取就退出循环，触发警告：libcob: C:/Users/saugu/Documents/Gix/Projects/FirstTry/bin/debug/x64/FIRSTTRY.cbsql:92: warning: implicit CLOSE of calin ('C:\Users\Public\Desktop\CalWork.txt')。
• 临时 workaround：在check-line例程末尾添加go to read-cal-file后，程序可继续读取并显示内容。

核心代码片段 #

主逻辑部分 #

evaluate true
       when cal-filestatus = "35"
            display "file not found"
       when cal-filestatus = "00"
            perform read-cal-file 
                until cal-eof
       when other
            display cal-filestatus,  msg
       end-evaluate.

读取与检查段落 #

read-cal-file.
       read calin
           at end
               set cal-eof to true
               close calin
           not at end
               perform check-line
       end-read.

check-line.     
        if fdtstart = ldtstart
            display cal-record
        end-if
        if fdtend = ldtend
            display cal-record
        end-if
        if fsummary = lsummary
            display cal-record
        end-if.
        display cal-read-status.

问题原因 #

1. cal-eof初始值错误：
   COBOL中PERFORM ... UNTIL的逻辑是先执行指定段落，再检查终止条件。如果cal-eof的初始值被设置为TRUE，第一次执行read-cal-file（读取成功）后，检查到cal-eof为TRUE会直接退出循环，不会触发下一次读取。此时文件未被显式关闭（仅AT END分支会执行CLOSE），因此触发implicit CLOSE警告。
2. 循环逻辑误解：
   你通过GO TO read-cal-file能正常读取，说明文件本身有多行且读取逻辑没问题，但PERFORM循环因终止条件的初始状态错误，无法重复触发读取操作。

解决步骤 #

1. 修正cal-eof初始值：
   确保cal-eof的初始状态为FALSE。如果是通过88级条件定义，示例如下：

   01  cal-switch      PIC X VALUE 'N'.
       88  cal-eof             VALUE 'Y'.
   

   初始化时cal-switch设为'N'，对应cal-eof为FALSE，循环会在每次执行read-cal-file后检查，直到读取到文件末尾时AT END分支将cal-eof设为TRUE才退出。

2. 优化文件关闭逻辑：
   为避免implicit CLOSE警告，建议在循环结束后显式关闭文件，无论是否正常读取到末尾。注意需避免重复关闭，可调整逻辑将CLOSE移出AT END分支，统一放在循环结束后：

   when cal-filestatus = "00"
            perform read-cal-file 
                until cal-eof
            close calin
   

3. 验证循环逻辑：
   确认PERFORM read-cal-file UNTIL cal-eof的执行流程：每次循环都会调用read-cal-file段落，执行一次READ操作，直到cal-eof被设为TRUE。修正初始值后，循环会自动重复读取下一行，无需GO TO语句。

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