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-MASTER-TABLE                  REDEFINES MTIOAREA.
            05  KEY-FIELDS.
                07  ACCOUNT-NUMBER                       PIC X(20).
                07  INVOICE-NUMBER                       PIC X(12).
                07  INVOICE-DATE.
                  09 INVOICE-YEAR.
                      11 INVOICE-YEAR-CC                 PIC X(02).
                      11 INVOICE-YEAR-YY                 PIC X(02).
                  09 INVOICE-MONTH                       PIC X(02).
                  09 INVOICE-DAY                         PIC X(02).
            05  RESULT-FIELDS.
                07 INVOICE-AMOUNT.
                  09 INVOICE-AMOUNT-X                    PIC X(14).
                  09 INVOICE-AMOUNT-14                   REDEFINES
                     INVOICE-AMOUNT-X                    PIC S9(14).
                  09 INVOICE-AMOUNT-9                    REDEFINES
                     INVOICE-AMOUNT-X                    PIC S9(12)V99.
                07 CRD-DUE-NT-INVOICE.
                  09 CRD-DUE-NEXT-INV-X                  PIC X(14).
                  09 CRD-DUE-NT-INV-14                   REDEFINES
                     CRD-DUE-NEXT-INV-X                  PIC S9(14).
                  09 CRD-DUE-NT-INV-9                    REDEFINES
                     CRD-DUE-NEXT-INV-X.
                    11 CRD-DUE-NEXT-INV                  PIC S9(12)V99.
                07 INV-AMT-LCDNI-14                      PIC S9(14).
                07 INV-AMT-LCDNI-9                       REDEFINES
                   INV-AMT-LCDNI-14.
                  09 INV-AMT-LESS-CDNI                   PIC S9(12)V99.
                07 PAYMENT-DUE-DATE.
                  09 PAYMENT-DUE-YEAR.
                      11 PAYMENT-YEAR-CC                 PIC X(02).
                      11 PAYMENT-YEAR-YY                 PIC X(02).
                  09 PAYMENT-DUE-MONTH                   PIC X(02).
                  09 PAYMENT-DUE-DAY                     PIC X(02).
                07  SERVICE-PERIOD-FROM.
                  09 SER-PD-FR-YEAR.
                      11 SER-PD-FR-YEAR-CC               PIC X(02).
                      11 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.
                      11 SER-PD-TO-YEAR-CC               PIC X(02).
                      11 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  BEG-METER-READINGX                   PIC X(14).
                07  BEG-METER-READ-9                     REDEFINES
                    BEG-METER-READINGX.
                  09 BEG-METER-READING                   PIC S9(14).
                07  END-METER-READINGX                   PIC X(14).
                07  END-METER-READ-9                     REDEFINES
                    END-METER-READINGX.
                  09 END-METER-READING                   PIC S9(14).
                07  CURRENT-USAGE-X                      PIC X(14).
                07  CURRENT-USAGE-9                      REDEFINES
                    CURRENT-USAGE-X.
                  09 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  READY-FOR-PAYMENT                    PIC X(01).
                07  BILLING-DATE.
                  09 BILLING-DATE-YEAR.
                      11 BILL-DATE-YEAR-CC               PIC X(02).
                      11 BILL-DATE-YEAR-YY               PIC X(02).
                  09 BILL-DATE-MONTH                     PIC X(02).
                  09 BILL-DATE-DAY                       PIC X(02).
                07  OLD-PREV-CDNI-X                      PIC X(14).
                07  OLD-PREV-CDNI-14                     REDEFINES
                    OLD-PREV-CDNI-X                      PIC S9(14).
                07  OLD-PREV-CDNI                        REDEFINES
                    OLD-PREV-CDNI-X                      PIC S9(12)V99.