*****************************************************************
      *                                                               *
      *    TABLE: OPPC                                                *
      *                                                               *
      *****************************************************************
       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-OPPC-TABLE                     REDEFINES MTIOAREA.
                 10  OPPC-KEY-HEADER-FIELDS.
                  15  VENDOR-NUMBER                   PIC X(10).
                  15  TRANS-CODE                      PIC X(02).      
                  15  PO-NUMBER.
                   20  PO-NUMBER-AGENCY               PIC X(03).
                   20  PO-NUMBER-NUMBER               PIC X(11).      
                  15  OPEN-PC-COMM-L-DETAIL.
                   20  OPPC-KEY-LINE-FIELDS.
                    25  LINE-NUM                      PIC X(03).
                   20  OPPC-RESULT-FIELDS.
                    25  COMMODITY-CODE                PIC X(14).
                    25  QUANTITY-ORDERED              PIC 9(12).    
                    25  UNIT-OF-MEASURE               PIC X(04).
                    25  MANUFACTURERS-NUM             PIC X(20).
                    25  DESCRIPTION-60                PIC X(60).
                    25  UNIT-COST-ORDERED             PIC 9(14).
                    25  EXTEND-ORDERED-AMT            PIC S9(14).
                    25  QUANTITY-RECEIVED             PIC S9(12).
                    25  EXTEND-RECEIVED-AMT           PIC S9(14).
                    25  QUANTITY-INVOICED             PIC 9(12). 
                    25  UNIT-PRICE-INVOICED           PIC S9(14).
                    25  EXTEND-INVOICED-AMT           PIC S9(14).
                    25  RECEIPT-COND-FLAG             PIC X(02).
                    25  INVOICE-COND-FLAG             PIC X(02).
                    25  FINAL-RECEIPT-FLAG            PIC X(01).
                    25  FINAL-INVOICE-FLAG            PIC X(01).
                    25  TEXT-FLAG                     PIC X(01).
                    25  ITEM-CODE                     PIC X(03).
                    25  BID-ID.
                     30  BID-NUMBER                   PIC X(10).
                     30  BID-SUFFIX                   PIC X(01).
                    25  BID-LINE-NUMBER               PIC X(03).
                    25  REF-ACCT-LINE                 PIC X(02).
                    25  MANUFACTURERS-NAME            PIC X(30).
                    25  QUANTITY-PAID                 PIC S9(12).
                    25  APPROVAL-GROUPS.
                     30  APPROVE-GROUP-1              PIC X(02).
                     30  APPROVE-GROUP-2              PIC X(02).
                     30  APPROVE-GROUP-3              PIC X(02).
                     30  APPROVE-GROUP-4              PIC X(02).
                     30  APPROVE-GROUP-5              PIC X(02).
                     30  APPROVE-GROUP-6              PIC X(02).
                     30  APPROVE-GROUP-7              PIC X(02).
                     30  APPROVE-GROUP-8              PIC X(02).
                     30  APPROVE-GROUP-9              PIC X(02).
                     30  APPROVE-GROUP-10             PIC X(02).
                    25  APPROVAL-LINE.
                     30  APPROVE-LINE-1               PIC X(01).
                     30  APPROVE-LINE-2               PIC X(01).
                     30  APPROVE-LINE-3               PIC X(01).
                     30  APPROVE-LINE-4               PIC X(01).
                     30  APPROVE-LINE-5               PIC X(01).
                     30  APPROVE-LINE-6               PIC X(01).
                     30  APPROVE-LINE-7               PIC X(01).
                     30  APPROVE-LINE-8               PIC X(01).
                     30  APPROVE-LINE-9               PIC X(01).
                     30  APPROVE-LINE-10              PIC X(01).
                    25  LAST-FORW-REF-TRANS.
                     30  LAST-FORW-REF-TR-CD          PIC X(02).
                     30  LAST-FORW-REF-TR-NUM.
                      35  LAST-FORW-REF-TR-AG         PIC X(03).
                      35  LAST-FORW-REF-NO            PIC X(12).
                    25  LAST-FORW-REF-COM-LN          PIC X(03).
                    25  LAST-REF-TR-DATE.      
                     30  LAST-REF-TR-YEAR.
                         35  LAST-REF-TR-YEAR-CC      PIC X(02).
                         35  LAST-REF-TR-YEAR-YY      PIC X(02).      
                     30  LAST-REF-TR-MONTH            PIC X(02).
                     30  LAST-REF-TR-DAY              PIC X(02).
                    25  TAX-CODE                      PIC X(03).
                    25  TAX-AMOUNT                    PIC S9(12)V99.
                    25  PRE-TAX-AMT                   PIC S9(12)V99.
                    25  ELIGIBLE-FOR-AUTO-PV          PIC X(01).
                  25  ORIG-UNIT-COST                  PIC S9(08)V9(06).
                  25  DISCOUNT-CODE                   PIC X(01).
                  25  PERCENT-OF-DISCOUNT             PIC X(05).
                   25  DISCOUNT-AMOUNT                PIC S9(12)V99.
                    25  FREIGHT-AMOUNT                PIC S9(12)V99.   
                  25 PA-LINE-NUMBER                   PIC X(03).
          03  FILLER                                  PIC x(1558).