IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPLE.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 BILL-RECORD.
          05 BR-AMT    PIC S9(7)V99 COMP-3.
          05 BR-STATUS PIC X.
          05 BR-DATE   PIC 9(8).
       PROCEDURE DIVISION.
           DISPLAY BR-AMT.
           DISPLAY BR-STATUS.
           DISPLAY BR-DATE.
           STOP RUN.