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  CUSC-RECORD                        REDEFINES MTIOAREA.
               05  CUSC-RECORD-KEY.
                   07  CUSTOMER-ID.
                       09  CUST-CODE                  PIC X(10).
                       09  CUST-ADDR-IND              PIC X(01).
               05  CUSC-RESULT-FIELDS.
                   07  NUMBER-NSF-CHECK               PIC 9(03).
                   07  LAST-NSF-DATE.
                       09  LAST-NSF-DATE-YR.
                           11  LAST-NSF-DATE-CC       PIC X(02).
                           11  LAST-NSF-DATE-YY       PIC X(02).
                       09  LAST-NSF-DATE-MNTH         PIC X(02).
                       09  LAST-NSF-DATE-DAY          PIC X(02).
                   07  NUMB-REC-INT                   PIC 9(03).
                   07  LAST-INT-DATE.
                       09  LAST-INT-DATE-YR.
                           11  LAST-INT-DATE-CC       PIC X(02).
                           11  LAST-INT-DATE-YY       PIC X(02).
                       09  LAST-INT-DATE-MNTH         PIC X(02).
                       09  LAST-INT-DATE-DAY          PIC X(02).
                   07  NUMB-REC-COLL                  PIC 9(03).
                   07  LAST-COLL-DATE.
                       09  LAST-COLL-DATE-YR.
                           11  LAST-COLL-DATE-CC      PIC X(02).
                           11  LAST-COLL-DATE-YY      PIC X(02).
                       09  LAST-COLL-DATE-MNTH        PIC X(02).
                       09  LAST-COLL-DATE-DAY         PIC X(02).
                   07  NUMB-REC-AG                    PIC 9(03).
                   07  LAST-AG-DATE.
                       09  LAST-AG-DATE-YR.
                           11  LAST-AG-DATE-YR-CC     PIC X(02).
                           11  LAST-AG-DATE-YR-YY     PIC X(02).
                       09  LAST-AG-DATE-MNTH          PIC X(02).
                       09  LAST-AG-DATE-DAY           PIC X(02).
                   07  NUMB-REC-WO                    PIC 9(03).
                   07  LAST-WO-DATE.
                       09  LAST-WO-DATE-YR.
                           11  LAST-WO-DATE-YR-CC     PIC X(02).
                           11  LAST-WO-DATE-YR-YY     PIC X(02).
                       09  LAST-WO-DATE-MNTH          PIC X(02).
                       09  LAST-WO-DATE-DAY           PIC X(02).
          03  FILLER                                  PIC X(1934).