03  PMT-HISTORY-TABLE                  REDEFINES MTIOAREA.
              05  HEADER-KEY-FIELD.
                 07  ACCOUNT-NUMBER                        PIC X(20).
              05  LINE-KEY-FIELDS.
                 07  RUN-DATE.
                      09 RUN-DATE-YEAR-CC                PIC X(02).
                      09 RUN-DATE-YEAR-YY                PIC X(02).
                      09 RUN-DATE-MONTH                  PIC X(02).
                      09 RUN-DATE-DAY                    PIC X(02).
              05  RESULT-FIELDS.
                 07  INVOICE-NUMBER                      PIC X(12).
                 07  INVOICE-AMOUNT                      PIC S9(12)V99.
                 07  INVOICE-DATE.
                      09 INVOICE-YEAR-CC                 PIC X(02).
                      09 INVOICE-YEAR-YY                 PIC X(02).
                      09 INVOICE-MONTH                   PIC X(02).
                      09 INVOICE-DAY                     PIC X(02).
                 07  PAYMENT-DUE-DATE.
                      09 PAYMENT-YEAR-CC                 PIC X(02).
                      09 PAYMENT-YEAR-YY                 PIC X(02).
                      09 PAYMENT-MONTH                   PIC X(02).
                      09 PAYMENT-DAY                     PIC X(02).
                 07  SERVICE-PERIOD-FROM.
                      09 SER-PD-FR-YEAR-CC               PIC X(02).
                      09 SER-PD-FR-YEAR-YY               PIC X(02).
                      09 SER-PD-FR-MONTH                 PIC X(02).
                      09 SER-PD-FR-DAY                   PIC X(02).
                 07  SERVICE-PERIOD-TO.
                      09 SER-PD-TO-YEAR-CC               PIC X(02).
                      09 SER-PD-TO-YEAR-YY               PIC X(02).
                      09 SER-PD-TO-MONTH                 PIC X(02).
                      09 SER-PD-TO-DAY                   PIC X(02).
                 07  ENDING-METER-READING                PIC S9(14).
                 07  CURRENT-USAGE                       PIC S9(14).
                 07  PO-NUMBER.
                      09  TRANS-CODE                     PIC X(02).
                      09  PO-NUMBER-AGENCY               PIC X(03).
                      09  PO-NUMBER-NUMBER               PIC X(11).
                 07  PO-LINE-NUMBER                      PIC X(02).
                 07  BATCH-NUMBER                        PIC X(06).
                 07  PVQ-DOCUMENT-NUMBER                 PIC X(11).
                 07  BILLING-DATE.
                      09 BILL-DATE-YEAR-CC               PIC X(02).
                      09 BILL-DATE-YEAR-YY               PIC X(02).
                      09 BILL-DATE-MONTH                 PIC X(02).
                      09 BILL-DATE-DAY                   PIC X(02).