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-VPER-TABLE                     REDEFINES MTIOAREA.
                 10  VPER-KEY-FIELDS.
                  15  VENDOR-CODE.
                   20  VENDOR-NUMBER                  PIC X(10).
                   20  VENDOR-ADDR-IND                PIC X(01).
                 10  VPER-RESULT-FIELDS.
                  15  PO-YTD-ORDERS                   PIC 9(06).
                  15  PO-CANCELLATIONS                PIC 9(04).
                  15  PO-CAN-LINES                    PIC S9(04).
                  15  PO-YTD-ORDER-LINES              PIC S9(06).
                  15  PO-FINAL-RC-LINES               PIC 9(06).
                  15  PO-AVG-DEL-DAYS                 PIC S9(05).
                  15  PO-BACKORDERS                   PIC 9(04).
                  15  PO-OVER-SHIPS                   PIC 9(04).
                  15  PO-UNDER-SHIPS                  PIC 9(04).
                  15  PO-DAMAGED-SHIPS                PIC 9(04).
                  15  PO-SUB-SHIPS                    PIC 9(04).
                  15  PO-DUP-SHIPS                    PIC 9(04).
                  15  PO-UNDER-BILLS                  PIC 9(04).
                  15  PO-OVER-BILLS                   PIC 9(04).
                  15  PO-LATE-DEL-DAYS                PIC S9(06).
                  15  PG-YTD-ORDERS                   PIC 9(06).
                  15  PG-CANCELLATIONS                PIC 9(04).
                  15  PG-CAN-LINES                    PIC S9(04).
                  15  PG-YTD-ORDER-LINES              PIC S9(06).
                  15  PG-FINAL-RC-LINES               PIC 9(06).
                  15  PG-AVG-DEL-DAYS                 PIC S9(05).
                  15  PG-BACKORDERS                   PIC 9(04).
                  15  PG-OVER-SHIPS                   PIC 9(04).
                  15  PG-UNDER-SHIPS                  PIC 9(04).
                  15  PG-DAMAGED-SHIPS                PIC 9(04).
                  15  PG-SUB-SHIPS                    PIC 9(04).
                  15  PG-DUP-SHIPS                    PIC 9(04).
                  15  PG-UNDER-BILLS                  PIC 9(04).
                  15  PG-OVER-BILLS                   PIC 9(04).
                  15  PG-LATE-DEL-DAYS                PIC S9(06).
                  15  PD-YTD-ORDERS                   PIC 9(06).
                  15  PD-CANCELLATIONS                PIC 9(04).
                  15  PD-CAN-LINES                    PIC S9(04).
                  15  PD-YTD-ORDER-LINES              PIC S9(06).
                  15  PD-FINAL-RC-LINES               PIC 9(06).
                  15  PD-AVG-DEL-DAYS                 PIC S9(05).
                  15  PD-BACKORDERS                   PIC 9(04).
                  15  PD-OVER-SHIPS                   PIC 9(04).
                  15  PD-UNDER-SHIPS                  PIC 9(04).
                  15  PD-DAMAGED-SHIPS                PIC 9(04).
                  15  PD-SUB-SHIPS                    PIC 9(04).
                  15  PD-DUP-SHIPS                    PIC 9(04).
                  15  PD-UNDER-BILLS                  PIC 9(04).
                  15  PD-OVER-BILLS                   PIC 9(04).
                  15  PD-LATE-DEL-DAYS                PIC S9(06).
                  15  PTOT-YTD-ORDERS                 PIC 9(06).
                  15  PTOT-CANCELLATIONS              PIC 9(04).
                  15  PTOT-CAN-LINES                  PIC S9(04).
                  15  PTOT-YTD-ORDER-LINES            PIC S9(06).
                  15  PTOT-FINAL-RC-LINES             PIC 9(06).
                  15  PTOT-AVG-DEL-DAYS               PIC S9(05).
                  15  PTOT-BACKORDERS                 PIC 9(04).
                  15  PTOT-OVER-SHIPS                 PIC 9(04).
                  15  PTOT-UNDER-SHIPS                PIC 9(04).
                  15  PTOT-DAMAGED-SHIPS              PIC 9(04).
                  15  PTOT-SUB-SHIPS                  PIC 9(04).
                  15  PTOT-DUP-SHIPS                  PIC 9(04).
                  15  PTOT-UNDER-BILLS                PIC 9(04).
                  15  PTOT-OVER-BILLS                 PIC 9(04).
                  15  BIDS-SENT                       PIC S9(06).
                  15  BID-RESPONSES                   PIC S9(06).
                  15  NO-BIDS                         PIC S9(06).
                  15  PR-YR-BIDS-SENT                 PIC S9(06).
                  15  PR-YR-BID-RESPONSES             PIC S9(06).
                  15  PR-YR-NO-BIDS                   PIC S9(06).
          03  FILLER                                  PIC X(1663).