01  VI-REC-DELIMIT.                                            
    05  VI-BAT-DATA.                                           
        10  BAT-TYPE                       PIC X(04).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  BAT-ORG1                       PIC X(03).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  BAT-NUMBER                     PIC X(06).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  DOC-TYPE                       PIC X(04).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  DOC-ORG1                       PIC X(03).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  DOC-NUMBER                     PIC X(11).          
        10  FILLER                         PIC X(01) VALUE '|'.
    05  VI-HDR-DATA.                                           
        10  TRANS-CODE                     PIC X(02).           
        10  FILLER                         PIC X(01) VALUE '|'.
        10  VI-NUMBER                      PIC X(14).          
        10  FILLER                         PIC X(01) VALUE '|'. 
        10  RECORD-MONTH                   PIC X(02).           
        10  RECORD-DAY                     PIC X(02).           
        10  RECORD-YEAR                    PIC X(02).           
        10  FILLER                         PIC X(01) VALUE '|'. 
        10  DOCUMENT-ACTION                PIC X(01).           
        10  FILLER                         PIC X(01) VALUE '|'. 
        10  INVOICE-TYPE                   PIC X(01).            
        10  FILLER                         PIC X(01) VALUE '|'. 
        10  VENDOR-CODE                    PIC X(11).           
        10  FILLER                         PIC X(01) VALUE '|'. 
        10  VENDOR-NAME                    PIC X(30).           
        10  FILLER                         PIC X(01) VALUE '|'. 
        10  TOT-LINE-AMT                   PIC X(14).           
        10  FILLER                         PIC X(01) VALUE '|'. 
        10  INC-DEC-IND                    PIC X(01).           
        10  FILLER                         PIC X(01) VALUE '|'. 
        10  TOT-INVOICE-AMT                PIC X(14).           
        10  FILLER                         PIC X(01) VALUE '|'. 
        10  CHECK-DESCRIPTION              PIC X(27).          
        10  FILLER                         PIC X(01) VALUE '|'.
    05  VI-LN-DATA.                                            
        10  LINE-NUM                       PIC X(03).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  REF-TRANS-CODE                 PIC X(02).           
        10  FILLER                         PIC X(01) VALUE '|'.
        10  REF-TRANS-NUM-AGENCY           PIC X(03).           
        10  FILLER                         PIC X(01) VALUE '|'.
        10  REF-TRANS-NUM-NUMBER           PIC X(11).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  REF-TRANS-COMM-LINE            PIC X(03).           
        10  FILLER                         PIC X(01) VALUE '|'.
        10  QUANTITY-ORDERED               PIC X(12).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  UNIT-OF-MEASURE                PIC X(04).           
        10  FILLER                         PIC X(01) VALUE '|'.
        10  COMMODITY-CODE                 PIC X(14).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  DESCRIPTION                    PIC X(30).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  QUANTITY-INVOICED              PIC X(12).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  QUANT-INC-DEC-IND              PIC X(01).           
        10  FILLER                         PIC X(01) VALUE '|'.
        10  UNIT-COST                      PIC X(14).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  UNIT-INC-DEC-IND               PIC X(01).           
        10  FILLER                         PIC X(01) VALUE '|'.
        10  EXTENDED-COST                  PIC X(14).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  VI-STATUS                      PIC X(05).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  LAST-USER                      PIC X(08).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  APPROVALS                      PIC X(05).          
        10  FILLER                         PIC X(01) VALUE '|'.
        10  LAST-DATE                      PIC X(08).