*****************************************************************
      *                                                               *
      *    TABLE: COMMODITY-SELECTION-TABLE                           *
      *                                                               *
      *      KEY: COMMODITY-CODE                                      *
      *****************************************************************
       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 COMMODITY-SELECTION-TABLE          REDEFINES MTIOAREA.
              05  DOCH-IOAREA.
                 10  TRANS-CODE                       PIC X(02).
                 10  DOCUMENT-ID                      PIC X(11).
              05  DOCD-IOAREA.
                 10  COMMODITY-CODE                   PIC X(14).
                 10  BUYER-CODE                       PIC X(02).
                 10  XGROUP                           PIC X(01).
                 10  INVENTORY-IND                    PIC X(01).
                 10  EXPEDITOR                        PIC X(02).
                 10  SCHEDULED-LET                    PIC X(01).
                 10  STANDARD-SPECS                   PIC X(01).
                 10  STANDARD-UNIT                    PIC X(04).
                 10  YTD-PURCHASES                    PIC S9(14).
                 10  FIXED-ASSET-IND                  PIC X(01).
                 10  DESCRIPTION-60                   PIC X(60).
                 10  COMMENTS-60                      PIC X(60).
                 10  TWM-FLAG                         PIC X(01).
                 10  UNIT-COST-FLAG                   PIC X(01).
                 10  LAST-UNIT-COST                   PIC X(14).
                 10  COMM-CLASS                       PIC X(03).
                 10  COMM-SUB-CLASS                   PIC X(02).
                 10  OBJECT                           PIC X(04).
                 10  PG-IND                           PIC X(01).
                 10  MSDS-IND                         PIC X(01).
                 10  APPROVAL-GROUP.
                  15  APPROVE-GROUP-1                 PIC X(02).
                  15  APPROVE-GROUP-2                 PIC X(02).
                  15  APPROVE-GROUP-3                 PIC X(02).
                  15  APPROVE-GROUP-4                 PIC X(02).
                  15  APPROVE-GROUP-5                 PIC X(02).
                  15  APPROVE-GROUP-6                 PIC X(02).
                  15  APPROVE-GROUP-7                 PIC X(02).
                  15  APPROVE-GROUP-8                 PIC X(02).
                  15  APPROVE-GROUP-9                 PIC X(02).
                  15  APPROVE-GROUP-10                PIC X(02).
                 10  COMM-APPRV-AMT                   PIC S9(14).
                 10  TAX-CODE                         PIC X(03).
                 10  SUB-OBJECT                       PIC X(02).
          03  FILLER                                  PIC X(1773).