*****************************************************************
      *                                                               *
      *    TABLE: OPPH                                                *
      *                                                               *
      *****************************************************************
       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 OPEN-PC-HEADER-TABLE               REDEFINES MTIOAREA. 
            05  DOCD-IOAREA.
                 10  OPPH-KEY-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).      
                 10  OPPH-RESULT-FIELDS.
                  15  VENDOR-ADDR-IND                 PIC X(01).      
                  15  BUDGET-FY.
                      20  BUDGET-FY-CC                PIC X(02).
                      20  BUDGET-FY-YY                PIC X(02).
                  15  TYPE-OF-ORDER                   PIC X(01).
                  15  DOCUMENT-DESCRIPTION            PIC X(12).
                  15  VENDOR-NAME                     PIC X(30).
                  15  PO-AMOUNT                       PIC S9(12)V99.
                  15  CLOSED-PO-AMT                   PIC S9(12)V99.
                  15  PO-DATE.
                   20  PO-YEAR.
                       25  PO-YEAR-CC                 PIC X(02).
                       25  PO-YEAR-YY                 PIC X(02).
                   20  PO-MONTH                       PIC X(02).
                   20  PO-DAY                         PIC X(02).
                  15  PO-CLOSING-DATE.
                   20  PO-CLOSING-YEAR.
                       25  PO-CLOSING-YEAR-CC         PIC X(02).
                       25  PO-CLOSING-YEAR-YY         PIC X(02).
                   20  PO-CLOSING-MONTH               PIC X(02).
                   20  PO-CLOSING-DAY                 PIC X(02).
                  15  OFF-RESERVE-ACCT                PIC X(04).
                  15  BLANKET-NUMBER                  PIC X(11).
                  15  SHIP-ADDRESS-CODE               PIC X(03).
                  15  CONFIRM-ORDER                   PIC X(01).
                  15  DELIVERY-DATE.
                   20  DELIVERY-YEAR.
                       25  DELIVERY-YEAR-CC           PIC X(02).
                       25  DELIVERY-YEAR-YY           PIC X(02).
                   20  DELIVERY-MONTH                 PIC X(02).
                   20  DELIVERY-DAY                   PIC X(02).
                  15  FOB-POINT                       PIC X(01).
                  15  RESP-AGENCY                     PIC X(03).
                  15  XORGANIZATION                   PIC X(04).
                  15  ORG-SHORT-NAME                  PIC X(20).
                  15  DELIVER-BLDG-ROOM               PIC X(10).
                  15  RESP-PERSON                     PIC X(20).
                  15  BUYER-CODE                      PIC X(02).
                  15  RECEIVED-AMOUNT                 PIC S9(12)V99.
                  15  INVOICE-AMT                     PIC S9(12)V99.
                  15  VENDOR-CONTACT                  PIC X(30).
                  15  HOLD-IND                        PIC X(01).
                  15  LAST-PRINT-DATE.
                   20  LAST-PRINT-YEAR.
                       25  LAST-PRINT-YEAR-CC         PIC X(02).
                       25  LAST-PRINT-YEAR-YY         PIC X(02).
                   20  LAST-PRINT-MONTH               PIC X(02).
                   20  LAST-PRINT-DAY                 PIC X(02).
                  15  TWM-FLAG                        PIC X(01).
                  15  EXPENDED-AMT                    PIC S9(12)V99.
                  15  WAREHOUSE                       PIC X(04).
                  15  LINKING-OPTION                  PIC X(01).
                  15  VENDOR-TERMS                    PIC X(1).
                  15  MODIFICATION-NUM                PIC X(02).
                  15  MODIFICATION-DATE.
                   20  MODIFICATION-YEAR.
                       25  MODIFICATION-YEAR-CC       PIC X(02).
                       25  MODIFICATION-YEAR-YY       PIC X(02).
                   20  MODIFICATION-MONTH             PIC X(02).
                   20  MODIFICATION-DAY               PIC X(02).
                  15  NOTE-PAD-IND                    PIC X(01).
                  15 FILLER                           PIC X(002).
                  15  BILL-ADDRESS-CODE               PIC X(03).
                  15  BS-ACCOUNT                      PIC X(04).
                  15  OUTSTANDING-APPR                PIC 9(03).
                  15  RECEIPT-CONFIRM-IND             PIC X(1).
                  15  ROLL-ACTION                     PIC X(01).
                  15  TAX-CODE                        PIC X(03).
                  15  DISCOUNT-CODE                   PIC X(01).
                  15  DISCOUNT-TOTAL                  PIC S9(12)V99
                  15  FREIGHT-IND                     PIC X(01).
                  15  FREIGHT-TOTAL                   PIC S9(12)V99.
                  15  TOTAL-QUANTITY                  PIC S9(09)V9(03).
                  15  PARTIAL-PAYMENT-IND             PIC X(01).   
                  15  MBE-PART-IND                    PIC X(01).
                  15  MBE-PART-PCTG                   PIC X(6).
                  15  WBE-PART-IND                    PIC X(01).
                  15  WBE-PART-PCTG                    PIC X(6).  
                 10  OPPH-INFERRED-FIELDS.
                  15  OUTSTANDING-AMT                 PIC S9(14).
          03  FILLER                                  PIC X(1622).