IDENTIFICATION DIVISION.
       PROGRAM-ID. LEITURA-ARQUIVO.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT ARQ-CLIENTES
               ASSIGN TO "CLIENTES.DAT"
               ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.

       FD  ARQ-CLIENTES.
       01  REG-CLIENTE.
           05 CLIENTE-ID     PIC 9(05).
           05 CLIENTE-NOME   PIC X(40).

       WORKING-STORAGE SECTION.
       01  WS-FIM-ARQUIVO    PIC X VALUE "N".

       PROCEDURE DIVISION.
           OPEN INPUT ARQ-CLIENTES

           PERFORM UNTIL WS-FIM-ARQUIVO = "S"
               READ ARQ-CLIENTES
                   AT END
                       MOVE "S" TO WS-FIM-ARQUIVO
                   NOT AT END
                       DISPLAY REG-CLIENTE
               END-READ
           END-PERFORM

           CLOSE ARQ-CLIENTES
           STOP RUN.