01 MTI-LOG. 
     03 LOGREC-PREFIX. 
           05 LOGREC-RECLEN 				PIC S9(04) COMP. 
           05 LOGREC-TABNUM 				PIC X(4). 
           05 LOGREC-ACTION 				PIC X. 
                 88 LOGREC-ACTION-ADD 			VALUE 'A'. 
                 88 LOGREC-ACTION-CHANGE 		VALUE 'C'. 
                 88 LOGREC-ACTION-DELETE 		VALUE 'D'. 
           05 LOGREC-DATE. 
                 07 LOGREC-CC 				PIC XX. 
                 07 LOGREC-YY 				PIC XX.  
                 07 LOGREC-MM 				PIC XX. 
                 07 LOGREC-DD 				PIC XX. 
           05 LOGREC-TIME. 
                 07 LOGREC-TIME-HH 			PIC XX. 
                 07 LOGREC-TIME-MM 			PIC XX. 
                 07 LOGREC-TIME-SS 			PIC XX. 
           05 LOGREC-TABID 				PIC X(4). 
           05 LOGREC-TYPE 				PIC X. 
        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).