IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPLE.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE ASSIGN TO "input.bin"
           ORGANIZATION IS SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD INFILE.
       01 BILL-RECORD.
          05 BR-AMT    PIC S9(7)V99 COMP-3.
          05 BR-STATUS PIC X.
          05 BR-DATE   PIC 9(8).
       WORKING-STORAGE SECTION.
       01 WS-EOF PIC X VALUE 'N'.
       PROCEDURE DIVISION.
           OPEN INPUT INFILE.
           PERFORM UNTIL WS-EOF = 'Y'
               READ INFILE INTO BILL-RECORD
                   AT END MOVE 'Y' TO WS-EOF
                   NOT AT END
                       DISPLAY BR-AMT
                       DISPLAY BR-STATUS
                       DISPLAY BR-DATE
               END-READ
           END-PERFORM.
           CLOSE INFILE.
           STOP RUN.