How do I read a sequential file in COBOL?

Need the absolute minimum: open a file, read records until end, close.

I have SELECT / FD / WORKING-STORAGE. What does the PROCEDURE DIVISION look like?

Skeleton:

OPEN INPUT IN-FILE
PERFORM UNTIL WS-EOF = 'Y'
READ IN-FILE
AT END MOVE 'Y' TO WS-EOF
NOT AT END PERFORM PROCESS-REC
END-READ
END-PERFORM
CLOSE IN-FILE

Check FILE STATUS after OPEN. Match your DD name to ASSIGN TO.

Do not forget END-READ and END-PERFORM. Missing those caused my first weird compile.