阿Q吧 > cobol读取文件，怎样判断一个文件是否有记录，如果READ之后发现无记录，那有没有返回值？

cobol读取文件，怎样判断一个文件是否有记录，如果READ之后发现无记录，那有没有返回值？

2024-12-03 21:40:21

推荐回答（2个）

回答1：

文件定义的部分就不说了，自己看语法
关键几个点
SELECT IN01 ASSIGN TO 外部文件名.

FD IN01.
01 IN-REC PIC X(100).

PERFORM READ-RTN UNTIL READ-FLG = '1'

READ-RTN SECTION
READ 文件
IF IN-REC = 'ABCDE'
DISPLAY 'HAVE'
END-IF
AT END
MOVE '1' TO READ-FLG
END-READ.

回答2：

能够判断的，如果是VSAM文件的检索文件，根据你传入的KEY ，判断STATUS。如果为23的话，表示无满足条件的记录。如果是顺序文件，读取之后，直接判断就行。