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).