*****************************************************************
      *                                                               *
      *    TABLE: OPVH                                                *
      *                                                               *
      *****************************************************************
       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-PV-HEADER-TABLE               REDEFINES MTIOAREA.
            05  DOCD-IOAREA.
                 10  OPVH-KEY-FIELDS.
                  15  VENDOR-CODE-R.
                   20  VENDOR-NUMBER                  PIC X(10).
                   20  VENDOR-ADDR-IND                PIC X(01).      
                  15  VOUCHER-NUMBER.
                      20  VOUCHER-NUMBER-AGCY         PIC X(03).
                      20  VOUCHER-NUMBER-NMBR         PIC X(11).      
                 10  OPVH-RESULT-FIELDS.      
                  15  BUDGET-FY.
                      20  BUDGET-FY-CC                PIC X(02).
                      20  BUDGET-FY-YY                PIC X(02).   
                  15  TYPE-OF-VOUCHER                 PIC X(01).
                  15  VENDOR-NAME                     PIC X(30).
                  15  VENDOR-ADDRESS-LINE1            PIC X(30).
                  15  VENDOR-ADDRESS-LINE2            PIC X(30).
                  15  VENDOR-ADDRESS-LINE3.
                   20  CITY-STATE.
                    25  CITY                          PIC X(18).
                    25  STATE                         PIC X(02).
                   20  ZIP-CODE                       PIC X(10).
                  15  OFF-LIAB-ACCT                   PIC X(04).
                  15  VOUCHER-AMT                     PIC S9(12)V99.
                  15  CLOSED-VOUCHER-AMT              PIC S9(12)V99.
                  15  VOUCHER-DATE.
                   20  VOUCHER-YEAR.
                       25  VOUCHER-YEAR-CC            PIC X(02).
                       25  VOUCHER-YEAR-YY            PIC X(02). 
                   20  VOUCHER-MONTH                  PIC X(02).
                   20  VOUCHER-DAY                    PIC X(02).
                  15  VOUCHER-CLOSING-DATE.      
                   20  VOUCHER-CLOSING-YEAR.
                       25  VOUCHER-CLOSING-YEAR-CC    PIC X(02).
                       25  VOUCHER-CLOSING-YEAR-YY    PIC X(02).    
                   20  VOUCHER-CLOSING-MNTH           PIC X(02).
                   20  VOUCHER-CLOSING-DAY            PIC X(02).
                  15  SCHED-PYMT-DATE.     
                   20  SCHED-PYMT-YEAR.
                       25  SCHED-PYMT-YEAR-CC         PIC X(02).
                       25  SCHED-PYMT-YEAR-YY         PIC X(02).      
                   20  SCHED-PYMT-MONTH               PIC X(02).
                   20  SCHED-PYMT-DAY                 PIC X(02).
                  15  HOLD-PAYMENT-IND                PIC X(01).
                  15  CHECK-CATEGORY                  PIC X(2).
                  15  SINGLE-CHECK-FLAG               PIC X(1).
                  15  DISCOUNT-AMOUNT                 PIC S9(12)V99.
                  15  TAX-CODE                        PIC X(03).
                  15  USE-TAX-AMOUNT                  PIC S9(12)V99.
                  15  FREIGHT-IND                     PIC X(01).
                  15  FREIGHT-TOTAL                   PIC S9(12)V99.
                  15  EFT-IND                         PIC X(01).
                  15  APPLICATION-TYPE                PIC X(02).
                  15  TOTAL-QUANTITY                  PIC S9(09)V9(03).
                 10  OPVH-INFERRED-FIELDS.
                  15  OUTSTANDING-AMT                 PIC S9(14).
                  15  WITHHELD-AMOUNT-X               PIC S9(14).
          03  FILLER                                  PIC X(1729).