从文件读取数据，而无需使用执行直到结束

Question

我正在按照限制使用Cobol读取数据

不允许使用：

AT END子句

执行直到

IF-ELSE

切换案例说明

迭代语句

   002-READ.
        READ d-attendance
        IF (?????)
           perform  002-READ
        END-IF.

我正在尝试使用上面的代码模拟一个循环，但是我不知道如何编写IF语句，有什么方法可以在不使用AT END的情况下检测EOF？

Answer 1

首次在file-control下定义文件时，可以这样定义：

select my-file
    assign to 'ifile.txt'
    organization is line sequential
    file status is fs. 

现在，fs变量的值在您从文件中读取时会更改。例如，如果未发现错误，则fs取值为00。可以找到更多信息here。

如果不允许使用列出的此类语句，则可以调用递归读取一行的函数，直到fs不等于00。