IDENTIFICATION DIVISION.
PROGRAM-ID. LIRE-FICHIER-SIMPLE.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MES-AMIS ASSIGN TO "amis.txt"
           ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD  MES-AMIS.
01  LIGNE-AMIE          PIC X(40).

WORKING-STORAGE SECTION.
01  FIN-FICHIER         PIC X           VALUE "N".

PROCEDURE DIVISION.
    OPEN INPUT MES-AMIS.

    PERFORM UNTIL FIN-FICHIER = "O"
        READ MES-AMIS
            AT END
                MOVE "O" TO FIN-FICHIER
            NOT AT END
                DISPLAY LIGNE-AMIE
        END-READ
    END-PERFORM.

    CLOSE MES-AMIS.

    DISPLAY SPACE.
    DISPLAY "Lecture terminee.".
    STOP RUN.