File Layout for CR, CRP and CRQ documents

                                                                      
      01  CR-REC-DELIMIT.                                              
          05  CR-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  CR-HDR-DATA.                                             
              10  TRANS-CODE                     PIC X(2).             
              10  FILLER                         PIC X(01) VALUE '|'.  
              10  TRANS-NUMBER-AGENCY            PIC X(03).    
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  TRANS-NUMBER-NUMBER            PIC X(11).           
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  RECORD-MONTH                   PIC X(2).            
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  RECORD-DAY                     PIC X(2).            
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  RECORD-YEAR                    PIC X(2).            
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  FISC-MONTH                     PIC X(2).            
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  FISC-YEAR                      PIC X(2).            
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  BUDGET-FY                      PIC X(2).            
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  DOCUMENT-ACTION                PIC X(1).            
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  BANK-ACCOUNT-CODE              PIC X(2).            
              10  FILLER                         PIC X(01) VALUE '|'. 
              10  OFFSET-CASH-ACCOUNT            PIC X(4).            
              10  FILLER                         PIC X(01) VALUE '|'.  
              10  DOCUMENT-DESCRIPTION           PIC X(12).            
              10  FILLER                         PIC X(01) VALUE '|'.  
              10  DOCUMENT-TOTAL                 PIC X(14).            
              10  FILLER                         PIC X(01) VALUE '|'.  
              10  ACTUAL-DOC-TOTAL               PIC X(14).            
              10  FILLER                         PIC X(01) VALUE '|'.  
              10  CMIA-SCHED-DATE.                                     
                  20  CMIA-SCHED-YEAR            PIC X(02).            
                  20  CMIA-SCHED-MONTH           PIC X(02).            
                  20  CMIA-SCHED-DAY             PIC X(02).            
              10  FILLER                         PIC X(01) VALUE '|'.  
          05  CR-LN-DATA.                                              
              10  CR-DOCD.                                             
                  20  REF-TRANS-NUMBER-AGY       PIC X(03).            
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  REF-TRANS-NUMBER-NBR       PIC X(11).            
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  REF-TRANS-LINE             PIC X(2).  
                  20  FILLER                     PIC X(01) VALUE '|'.             
                  20  FUND                       PIC X(04).            
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  AGENCY                     PIC X(3).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20 XORGANIZATION               PIC X(4).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  SUB-ORG                    PIC X(2).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  ACTIVITY                   PIC X(4).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  REVENUE-SOURCE             PIC X(4).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  SUB-REV-SOURCE             PIC X(2).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  JOB-NUMBER                 PIC X(8).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  REPORTING-CATEGORY         PIC X(4).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  BS-ACCOUNT                 PIC X(4).             
                  20  FILLER                     PIC X(01) VALUE '|'. 
                  20  XOBJECT                    PIC X(4).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  SUB-OBJECT                 PIC XX.               
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  PROVIDER-CODE              PIC X(11).            
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  LINE-DESCRIPTION           PIC X(30).            
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  LINE-AMOUNT                PIC X(14).            
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  LINE-ACTION                PIC X(1).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  PARTIAL-FINAL-IND          PIC X(1).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  APPR-UNIT                  PIC X(09).            
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  XFUNCTION                  PIC X(4).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  REF-TRANS-CODE             PIC X(2).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  LINE-NUMBER                PIC X(2).             
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  CUSTOMER-NAME              PIC X(30).            
                  20  FILLER                     PIC X(01) VALUE '|'.  
                  20  BILLING-CODE               PIC X(04).            
              10  FILLER                         PIC X(01) VALUE '|'.  
              10  CR-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).