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-MPSM-TABLE                     REDEFINES MTIOAREA.
                 10  MPSM-HEADER-VARIABLES.
                     15  MPSM-KEY-HEADER-FIELDS.
                         20  PA-NUMBER                PIC X(11).
                 10  MPSM-DETAIL-LINE.
                     15  MPSM-KEY-LINE-FIELDS.
                         20  PA-MOD-NUMBER            PIC X(03).
                     15  MPSM-RESULT-LINE-FIELDS.
                         20  PA-MOD-DESCRIPTION-60    PIC X(60).
                         20  EFFECTIVE-DATE.
                             25 EFFECTIVE-YEAR.
                                30 EFFECTIVE-YEAR-CC  PIC X(02).
                                30 EFFECTIVE-YEAR-YY  PIC X(02).
                             25 EFFECTIVE-MONTH       PIC X(02).
                             25 EFFECTIVE-DAY         PIC X(02).
                         20  START-DATE.
                             25 START-YEAR.
                                30 START-YEAR-CC      PIC X(02).
                                30 START-YEAR-YY      PIC X(02).
                             25 START-MONTH           PIC X(02).
                             25 START-DAY             PIC X(02).
                         20  END-DATE.
                             25  END-YEAR.
                                 30  END-YEAR-CC      PIC X(02).
                                 30  END-YEAR-YY      PIC X(02).
                             25  END-MONTH            PIC X(02).
                             25  END-DAY              PIC X(02).
                         20  AUTHORIZED-AMOUNT        PIC X(14).
                         20  BUYER                    PIC X(02).
                         20  PG-IND                   PIC X(01).
                         20  DOCUMENT-USAGE           PIC X(01).
                         20  FOB-POINT                PIC X(01).
                         20  RENEWAL-DAYS             PIC X(03).
                         20  LAG-DAYS                 PIC X(03).
                         20  TAX-CODE                 PIC X(03).
              03 FILLER                               PIC X(1874).