01  PV-LN-REC-DELIMIT.                                         
           05  BUDGET-FY                       PIC X(02).             
           05  FILLER                          PIC X(01) VALUE '|'.   
           05  RECORD-DATE.                                           
               10  RECORD-MONTH                PIC X(2).              
               10  RECORD-DAY                  PIC X(2).              
               10  RECORD-YEAR                 PIC X(2).              
           05  FILLER                          PIC X(01) VALUE '|'.   
           05  ACCT-PRD.                                              
               10  FISC-MONTH                  PIC X(2).              
               10  FISC-YEAR                   PIC X(2).              
           05  FILLER                          PIC X(01) VALUE '|'.   
           05  PV-KEY.                                                
               10  BAT-ID.                                            
                   15  BAT-TYPE                PIC X(04).             
                   15  FILLER                  PIC X(01) VALUE '|'.   
                   15  BAT-AGENCY              PIC X(03).             
                   15  FILLER                  PIC X(01) VALUE '|'.   
                   15  BAT-NUMBER              PIC X(06).             
                   15  FILLER                  PIC X(01) VALUE '|'.   
               10  DOC-ID.                                          
                   15  DOC-TYPE                PIC X(04).           
                   15  FILLER                  PIC X(01) VALUE '|'. 
                   15  DOC-AGENCY              PIC X(03).           
                   15  FILLER                  PIC X(01) VALUE '|'. 
                   15  DOC-NUMBER              PIC X(11).           
                   15  FILLER                  PIC X(01) VALUE '|'. 
           05  PV-LN.                                               
               10  LINE-NO                     PIC X(2).            
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  DESCRIPTION                 PIC X(27).           
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  REF-TRANS-CODE              PIC X(2).            
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  REF-TRANS-NUMBER.                                
                   15  REF-TRANS-NUMBER-AGY    PIC X(03).           
                   15  FILLER                  PIC X(01) VALUE '|'. 
                   15  REF-TRANS-NUMBER-NUM    PIC X(11).           
                   15  FILLER                  PIC X(01) VALUE '|'. 
               10  REF-TRANS-LINE              PIC X(2).            
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  REF-TRANS-COMM-LINE         PIC X(03).           
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  VENDOR-INVOICE              PIC X(12).           
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  VENDOR-INV-LINE-NUM         PIC X(03).           
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  FUND                        PIC X(4).            
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  AGENCY                      PIC X(3).            
               10  FILLER                      PIC X(01) VALUE '|'. 
               10 XORGANIZATION                PIC X(4).            
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  SUB-ORG                     PIC X(2).            
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  APPR-UNIT                   PIC X(9).            
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  ACTIVITY                    PIC X(4).            
               10  FILLER                      PIC X(01) VALUE '|'. 
               10  XFUNCTION                   PIC X(04).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  OBJECT                      PIC X(4).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  SUB-OBJECT                  PIC X(2).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  JOB-NUMBER                  PIC X(8).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  REPORTING-CATEGORY          PIC X(4).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  BS-ACCOUNT                  PIC X(4).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  DISCOUNT-TYPE               PIC X(1).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  CALCULATED-LINE-AMOUNT      PIC X(14).          
               10  FILLER                      PIC X(01) VALUE '|'.
               10  LINE-AMOUNT                 PIC X(14).          
               10  FILLER                      PIC X(01) VALUE '|'.
               10  INC-DEC-IND                 PIC X(1).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  QUANTITY                    PIC X(12).          
               10  FILLER                      PIC X(01) VALUE '|'.
               10  QUANTITY-INC-DEC            PIC X(01).          
               10  FILLER                      PIC X(01) VALUE '|'.
               10  FREIGHT-AMOUNT              PIC X(14).          
               10  FILLER                      PIC X(01) VALUE '|'.
               10  FREIGHT-AMOUNT-I-D          PIC X(01).          
               10  FILLER                      PIC X(01) VALUE '|'.
               10  PARTIAL-FINAL-IND           PIC X(1).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  FIXED-ASSET-TYPE            PIC X(1).           
               10  FILLER                      PIC X(01) VALUE '|'.
               10  VENDOR-NAME                 PIC X(30).          
               10  FILLER                      PIC X(01) VALUE '|'.
               10  VENDOR-CODE.                                    
                   15  VENDOR-NUMBER           PIC X(10).          
                   15  FILLER                  PIC X(01) VALUE '|'.
                   15  VENDOR-ADDR-IND         PIC X(1).           
                   15  FILLER                  PIC X(01) VALUE '|'.
               10  PV-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  DOCUMENT-ACTION             PIC X(01).             
               10  FILLER                      PIC X(01) VALUE '|'.   
               10  LAST-DATE                   PIC X(08).