        IDENTIFICATION DIVISION.
        PROGRAM-ID. 01_READ_FILE.
        
        ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
          SELECT PERSON ASSIGN TO 'persons.txt'
          ORGANIZATION IS LINE SEQUENTIAL.
        
        DATA DIVISION.
        FILE SECTION.
        FD PERSON.
        01 F_PERSON.
        02 F_PERSON-ID PIC 999.
        02 F_PERSON-NAME PIC X(16).
        02 F_PERSON-SURNAME PIC X(25).
        WORKING-STORAGE SECTION.
        01 S_PERSON.
        02 S_PERSON-ID PIC 999.
        02 S_PERSON-NAME PIC X(16).
        02 S_PERSON-SURNAME PIC X(25).
        01 B_EOF PIC A(1) VALUE 'F'.
        
        PROCEDURE DIVISION.
        OPEN INPUT PERSON.
        PERFORM UNTIL B_EOF = 'T'
          READ PERSON INTO S_PERSON
          AT END MOVE 'T' TO B_EOF
          NOT AT END DISPLAY S_PERSON
          END-READ
        END-PERFORM.
        CLOSE PERSON.
        STOP RUN.
