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-PASM-TABLE                     REDEFINES MTIOAREA.
                 10  PASM-KEY-FIELDS.
                  15  PA-NUMBER                       PIC X(11).
                 10  PASM-RESULT-FIELDS.
                  15  DESCRIPTION-60                  PIC X(60).
                  15  START-DATE.
                   20  START-YEAR.
                    25  START-YEAR-CC                 PIC X(02).
                    25  START-YEAR-YY                 PIC X(02).
                   20  START-MONTH                    PIC X(02).
                   20  START-DAY                      PIC X(02).
                  15  END-DATE.
                   20  END-YEAR.
                    25  END-YEAR-CC                   PIC X(02).
                    25  END-YEAR-YY                   PIC X(02).
                   20  END-MONTH                      PIC X(02).
                   20  END-DAY                        PIC X(02).
                  15  AUTHORIZED-AMOUNT               PIC S9(14).
                  15  ENCUMBERED-AMOUNT               PIC S9(14).
                  15  CLOSED-AMOUNT                   PIC S9(14).
                  15  EXPENDED-AMOUNT                 PIC S9(14).
                  15  NUMBER-OF-ORDERS                PIC S9(05).
                  15  BUYER-CODE                      PIC X(02).
                  15  RESTRICT-IND                    PIC X(01).
                  15  FOB-POINT                       PIC X(01).
                  15  LAG-DAYS                        PIC X(03).
                  15  RENEWAL-DAYS                    PIC X(03).
                  15  RENEWAL-FLAG                    PIC X(01).
                  15  PG-IND                          PIC X(01).
                  15  TAX-CODE                        PIC X(03).
                  15  DOCUMENT-USAGE                  PIC X(01).
                  15  PA-MOD-NUMBER                   PIC X(03).
          03  FILLER                                  PIC X(1833).