IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-OPEN-24.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT FICHIER-IN ASSIGN TO "data.txt"
	ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD  FICHIER-IN.
01  ENREG-IN      PIC X(120).

WORKING-STORAGE SECTION.
01  WS-FIN PIC X 	VALUE "N".
    88  FIN-FICHIER	VALUE "O".
    88  PAS-FIN    	VALUE "N".

PROCEDURE DIVISION.
    OPEN INPUT FICHIER-IN

    READ FICHIER-IN
		AT END
     SET FIN-FICHIER TO TRUE
		NOT AT END
     DISPLAY "Ligne lue : " ENREG-IN
    END-READ

    CLOSE FICHIER-IN
    STOP RUN.