By using START command

Example :

START filename

KEY is EQUAL TO keyname

[INVALID KEY ...........]

END-START

PERFORM UNTIL end-of-file

READ filename NEXT RECORD

AT END

SET end-of-file TO TRUE

END-READ

END-PERFORM