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-MPAH-TABLE              REDEFINES MTIOAREA.
                 10  MPAH-HEADER-VARIABLES.
                     15  MPAH-KEY-HEADER-FIELDS.
                         20  PA-NUMBER                 PIC X(11).
                 10  MPAH-DETAIL-LINE.
                     15  MPAH-KEY-LINE-FIELDS.
                         20  PA-MOD-NUMBER             PIC X(03).
                     15  MPAH-RESULT-LINE-FIELDS.
                         20  TRANS-ID.
                             25  TRANS-CODE            PIC X(02).
                             25  TRANS-NUMBER.
                                 30 TRANS-NUMBER-AGY   PIC X(03).
                                 30 TRANS-NUMBER-NUM   PIC X(11).
                         20  RECORD-DATE.
                             25  RECORD-YEAR.
                                 30  RECORD-YEAR-CC    PIC X(02).
                                 30  RECORD-YEAR-YY    PIC X(02).
                             25  RECORD-MONTH          PIC X(02).
                             25  RECORD-DAY            PIC X(02).
                         20  AUTHORIZED-AGENCY         PIC X(03).
                         20  AUTHORIZED-ORG            PIC X(04).
                         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  REF-TRANS-ID.
                             25  REF-TRANS-CODE        PIC X(02).
                             25  REF-TRANS-NUMBER.
                              30  REF-TRANS-NUMBER-AGY PIC X(03).
                              30  REF-TRANS-NUMBER-NUM PIC X(11).
                         20  BID-ID.
                             25  BID-NUMBER            PIC X(10).
                             25  BID-SUFFIX            PIC X(01).
                         20  DEL-PA-IND                PIC X(01).
                         20  DEL-VENDOR-IND            PIC X(01).
                         20  DEL-VENDOR-CODE.
                             25  DEL-VENDOR-NUMBER     PIC X(10).
                             25  DEL-VENDOR-ADDR-IND   PIC X(01).
                         20  PA-TEXT-CHG-IND           PIC X(01).
                         20  PROCESS-STATUS-IND        PIC X(01).
                         20  SECURITY-CHG-IND          PIC X(01).
                         20  PA-MOD-NUMBER-9CMP        PIC X(03).
          03  FILLER                                  PIC X(1901).