*****************************************************************
      *                                                               *
      *    TABLE: OVIH                                                *
      *                                                               *
      *****************************************************************
       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-VI-HEADER-TABLE               REDEFINES MTIOAREA.      
            05  DOCD-IOAREA.
                 10  OVIH-KEY-FIELDS.
                  15  VENDOR-CODE-R.                 
                   20  VENDOR-NUMBER                  PIC X(10).
                   20  VENDOR-ADDR-IND                PIC X(01).
                  15  TRANS-CODE                      PIC X(02).
                  15  VENDOR-INVOICE                  PIC X(12).
                 10  OVIH-RESULT-FIELDS.
                  15  VENDOR-NAME                     PIC X(30).
                  15  VENDOR-INVOICE-DATE.      
                   20  VENDOR-INVOICE-YEAR.
                       25  VENDOR-INVOICE-YEAR-CC     PIC X(02).
                       25  VENDOR-INVOICE-YEAR-YY     PIC X(02).      
                   20  VENDOR-INVOICE-MONTH           PIC X(02).
                   20  VENDOR-INVOICE-DAY             PIC X(02).
                  15  FREIGHT-AMOUNT                  PIC S9(12)V99.                 
                  15  TAX-AMOUNT                      PIC S9(12)V99.               
                  15  DISCOUNT-TYPE                   PIC X(01).
                  15  TOTAL-LINE-AMT                  PIC S9(12)V99.              
                  15  TOTAL-INVOICE-AMT               PIC S9(12)V99.               
                  15  VOUCHER-AMT                     PIC S9(12)V99.               
                  15  CLOSED-DATE.      
                   20  CLOSED-YEAR.
                       25  CLOSED-YEAR-CC             PIC X(02).
                       25  CLOSED-YEAR-YY             PIC X(02).      
                   20  CLOSED-MONTH                   PIC X(02).
                   20  CLOSED-DAY                     PIC X(02).
                  15  INVOICE-TYPE                    PIC X(01).
                        15  LAST-REF-NUMBER.
                      20  LAST-REF-NUMBER-AGCY        PIC X(03).
                      20  LAST-REF-NUMBER-NMBR        PIC X(11).
                  15  CHECK-CATEGORY                  PIC X(2).
                  15  SINGLE-CHECK-FLAG               PIC X(1).
                  15  FIXED-ASSET-IND                 PIC X(01).
                  15  CHECK-DESCRIPTION               PIC X(27).
                  15  TAX-CODE                        PIC X(03).
                  15  USE-TAX-AMT                     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  DISCOUNT-CODE                   PIC X(01).
                  15  DISCOUNT-TOTAL                  PIC S9(12)V99.               
                  15  TOTAL-QUANTITY                  PIC S9(09)V9(03). 
                  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).        
          03  FILLER                                  PIC X(1742).