01  JV-REC-DELIMIT.                                                  Start   End                                                 
     05  JV-BAT-DATA.                                                 Col    Col               
         10  BAT-TYPE                       PIC X(04).                 1      4       
         10  FILLER                         PIC X(01) VALUE '|'.       5      5 
         10  BAT-ORG1                       PIC X(03).                 6      8 
         10  FILLER                         PIC X(01) VALUE '|'.       9      9
         10  BAT-NUMBER                     PIC X(06).                10     15 
         10  FILLER                         PIC X(01) VALUE '|'.      16     16 
         10  DOC-TYPE                       PIC X(04).                17     20
         10  FILLER                         PIC X(01) VALUE '|'.      21     21 
         10  DOC-ORG1                       PIC X(03).                22     24 
         10  FILLER                         PIC X(01) VALUE '|'.      25     25 
         10  DOC-NUMBER                     PIC X(11).                26     36
         10  FILLER                         PIC X(01) VALUE '|'.      37     37    
     05  JV-HDR-DATA.                                           
         10  RECORD-MONTH                   PIC X(2).                 38     39   
         10  RECORD-DAY                     PIC X(2).                 40     41  
         10  RECORD-YEAR                    PIC X(2).                 42     43
         10  FILLER                         PIC X(01) VALUE '|'.      44     44
         10  FISC-MONTH                     PIC X(2).                 45     46 
         10  FISC-YEAR                      PIC X(2).                 47     48
         10  FILLER                         PIC X(01) VALUE '|'.      49     49 
         10  BUDGET-FY                      PIC X(02).                50     51 
         10  FILLER                         PIC X(01) VALUE '|'.      52     52
         10  DOCUMENT-ACTION                PIC X(01).                53     53    
         10  FILLER                         PIC X(01) VALUE '|'.      54     54    
         10  DOCUMENT-DESCRIPTION           PIC X(12).                55     66
         10  FILLER                         PIC X(01) VALUE '|'.      67     67
         10  DEBIT-DOC-TOTAL                PIC X(14).                68     81 
         10  FILLER                         PIC X(01) VALUE '|'.      82     82 
         10  CREDIT-DOC-TOTAL               PIC X(14).                83     96 
         10  FILLER                         PIC X(01) VALUE '|'.      97     97
       05  JV-LN-DATA.                                            
         10  LINE-DESCRIPTION               PIC X(30).                98    127  
         10  FILLER                         PIC X(01) VALUE '|'.     128    128  
         10  ACCOUNT-TYPE                   PIC X(2).                129    130
         10  FILLER                         PIC X(01) VALUE '|'.     131    131
         10  FUND                           PIC X(4).                132    135 
         10  FILLER                         PIC X(01) VALUE '|'.     136    136
         10  AGENCY                         PIC X(3).                137    139
         10  FILLER                         PIC X(01) VALUE '|'.     140    140
         10 XORGANIZATION                   PIC X(4).                141    144
         10  FILLER                         PIC X(01) VALUE '|'.     145    145 
         10  SUB-ORG                        PIC X(2).                146    147
         10  FILLER                         PIC X(01) VALUE '|'.     148    148
         10  APPR-UNIT                      PIC X(9).                149    157
         10  FILLER                         PIC X(01) VALUE '|'.     158    158
         10  ACTIVITY                       PIC X(4).                159    162  
         10  FILLER                         PIC X(01) VALUE '|'.     163    163  
         10  XFUNCTION                      PIC X(04).               164    167 
         10  FILLER                         PIC X(01) VALUE '|'.     168    168
         10  OBJ-REV-SRCE                   PIC X(4).                169    172 
         10  FILLER                         PIC X(01) VALUE '|'.     173    173 
         10  SUB-OBJ-SUB-REV-SRCE           PIC X(2).                174    175
         10  FILLER                         PIC X(01) VALUE '|'.     176    176
         10  BS-ACCOUNT                     PIC X(4).                177    180
         10  FILLER                         PIC X(01) VALUE '|'.     181    181
         10  JOB-NUMBER                     PIC X(8).                182    189
         10  FILLER                         PIC X(01) VALUE '|'.     190    190 
         10  DEBIT-LINE-AMOUNT              PIC X(14).               191    204  
         10  FILLER                         PIC X(01) VALUE '|'.     205    205
         10  REPORTING-CATEGORY             PIC X(4).                206    209
         10  FILLER                         PIC X(01) VALUE '|'.     210    210 
         10  VENDOR-NAME                    PIC X(30).               211    240
         10  FILLER                         PIC X(01) VALUE '|'.     241    241  
         10  VENDOR-NUMBER                  PIC X(10).               242    251
         10  FILLER                         PIC X(01) VALUE '|'.     252    252 
         10  VENDOR-ADDR-IND                PIC X(1).                253    253
         10  FILLER                         PIC X(01) VALUE '|'.     254    254
         10  CREDIT-LINE-AMOUNT             PIC X(14).               255    268
         10  FILLER                         PIC X(01) VALUE '|'.     269    269
         10  REF-TRANS-CODE                 PIC X(2).                270    271
         10  FILLER                         PIC X(01) VALUE '|'.     272    272
         10  REF-TRANS-NUM-AGENCY           PIC X(03).               273    275
         10  FILLER                         PIC X(01) VALUE '|'.     276    276
         10  REF-TRANS-NUM-NUMBER           PIC X(11).               277    287
         10  FILLER                         PIC X(01) VALUE '|'.     288    288
         10  REF-TRANS-LINE                 PIC X(2).                289    290
         10  FILLER                         PIC X(01) VALUE '|'.     291    291
         10  JV-STATUS                      PIC X(05).               292    296 
         10  FILLER                         PIC X(01) VALUE '|'.     297    297
         10  LAST-USER                      PIC X(08).               298    305
         10  FILLER                         PIC X(01) VALUE '|'.     306    306
         10  APPROVALS                      PIC X(05).               307    311   
         10  FILLER                         PIC X(01) VALUE '|'.     312    312
         10  LAST-DATE                      PIC X(08).               313    320