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  ALT-PROV-TABLE                  REDEFINES MTIOAREA.
               05  PROVIDER-CODE                    PIC X(11).
               05  PROVIDER-NAME                    PIC X(30).
               05  PROVIDER-DESCRIPTION             PIC X(30).
               05  PROV-ADDRESS-LINE1               PIC X(30).
               05  PROV-ADDRESS-LINE2               PIC X(30).
               05  PROV-ADDRESS-LINE3               PIC X(30).
               05  PROV-ZIP-CODE                    PIC X(9).
               05  MISC-PROVIDER-IND                PIC X(1).
               05  HOLD-BILLING-IND                 PIC X(1).
               05  PROJECT-FUND-SRC-IND             PIC X(01).
               05  PROJECT-FUND-SRC-TYP             PIC X(01).
               05  RR-CUST-RESULT-FIELDS.
                   07  CUST-PHONE-NUMBER            PIC X(15).
                   07  AP-CONTACT-NAME              PIC X(30).
                   07  AP-CONTACT-PHONE             PIC X(15).
                   07  RET-MAIL-IND                 PIC X(01).
                   07  TAX-EXEMPT-IND               PIC X(01).
                   07  CUSTOMER-STATUS              PIC X(01).
                   07  DATE-OF-BIRTH.
                       09  DATE-OF-BIRTH-YR.
                           11  DATE-OF-BIRTH-YR-CC  PIC X(02).
                           11  DATE-OF-BIRTH-YR-YY  PIC X(02).
                       09  DATE-OF-BIRTH-MNTH       PIC X(02).
                       09  DATE-OF-BIRTH-DAY        PIC X(02).
                   07  ENG-SPOKEN                   PIC X(01).
                   07  MARITAL-STATUS               PIC X(01).
                   07  LIC-PERMIT-NUMB              PIC X(12).
                   07  BANK-NAME                    PIC X(30).
                   07  BANK-PHONE                   PIC X(15).
                   07  ORG-TYPE                     PIC X(01).
                   07  SEX                          PIC X(01).
                   07  TEXT-IND                     PIC X(01).
                   07  CUST-SHORT-NAME              PIC X(12).
                   07  ALT-CUSTOMER-CODE            PIC X(11).
                   07  VENDOR-CODE.
                       09  VENDOR-NUMBER            PIC X(10).
                       09  VENDOR-ADDR-IND          PIC X(01).
                   07  BILLING-CODE                 PIC X(04).
                   07  CUSF-RESULT-FIELDS.
                       09  BILLED-TO-DATE           PIC S9(14).
                       09  REC-TO-DATE              PIC S9(14).
                       09  TOT-AMT-WRITE-OFF        PIC S9(14).
                       09  PRIOR-YTD-BILLED         PIC S9(14).
                       09  PRIOR-YTD-REC            PIC S9(14).
                       09  PRIOR-YTD-WRITE-OFF      PIC S9(14).
                       09  LAST-PAY-AMT             PIC S9(14).
                       09  LAST-PAY-DATE.
                           11  LAST-PAY-DATE-YR.
                            13  LAST-PAY-DATE-YR-CC PIC X(02).
                            13  LAST-PAY-DATE-YR-YY PIC X(02).
                           11  LAST-PAY-DATE-MNTH   PIC X(02).
                           11  LAST-PAY-DATE-DAY    PIC X(02).
                       09  LAST-REC-DATE.
                           11  LAST-REC-DATE-YR.
                            13  LAST-REC-DATE-YR-CC PIC X(02).
                            13  LAST-REC-DATE-YR-YY PIC X(02).
                           11  LAST-REC-DATE-MNTH   PIC X(02).
                           11  LAST-REC-DATE-DAY    PIC X(02).
                       09  CURR-SHRT-PAY-AMT        PIC S9(14).
                       09  CURR-OVER-PAY-AMT        PIC S9(14).
                       09  PRIOR-SHRT-PAY-AMT       PIC S9(14).
                       09  PRIOR-OVER-PAY-AMT       PIC S9(14).
                   07  FAX-PHONE-NUMBER             PIC X(15).
                   07  INDIV-CORP-NAME-FL           PIC X(01).
                   07  THIRD-PARTY-CODE             PIC X(11).
          03  FILLER                                PIC X(1458).