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

Question

我试图按照限制使用Cobol读取数据

不允许使用：

AT END子句

PERFORM - 直到

如果别的

切换案例声明

迭代语句

   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 。 可以在此处找到更多信息。

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