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.
           MOVE 1500 TO BR-AMT.
           MOVE 'A' TO BR-STATUS.
           MOVE 20260522 TO BR-DATE.
           DISPLAY BR-AMT
           DISPLAY BR-STATUS
           DISPLAY BR-DATE
           STOP RUN.