01  PG-REC-DELIMIT.                                            
     05  PG-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  PG-HDR-DATA.                                           
         10  TRANS-CODE                     PIC X(2).            
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  TRANS-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  FISC-MONTH                     PIC X(2).            
         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  TYPE-OF-ORDER                  PIC X(1).            
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  RESP-PERSON                    PIC X(20).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  DOCUMENT-DESCRIPTION           PIC X(12).           
         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  BUILDING                       PIC X(04).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  PA-NUMBER                      PIC X(11).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  LINE-NUMBER-1                  PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  FUND-1                         PIC X(4).  
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  AGENCY-1                       PIC X(3).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10 XORGANIZATION-1                 PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  SUB-ORG-1                      PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  APPR-UNIT-1                    PIC X(9).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  ACTIVITY-1                     PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  OBJECT-1                       PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  SUB-OBJECT-1                   PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  JOB-NUMBER-1                   PIC X(8).                
         10  FILLER                         PIC X(01) VALUE '|'.
         10  REPORTING-CATEGORY-1           PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-AMOUNT-1                  PIC X(14).              
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-ACTION-1                  PIC X(1).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  PARTIAL-FINAL-1                PIC X(1).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-NUMBER-2                  PIC X(2).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  FUND-2                         PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  AGENCY-2                       PIC X(3).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10 XORGANIZATION-2                 PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  SUB-ORG-2                      PIC X(2).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  APPR-UNIT-2                    PIC X(9).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  ACTIVITY-2                     PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  OBJECT-2                       PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  SUB-OBJECT-2                   PIC X(2).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  JOB-NUMBER-2                   PIC X(8).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  REPORTING-CATEGORY-2           PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-AMOUNT-2                  PIC X(14). 
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-ACTION-2                  PIC X(1).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  PARTIAL-FINAL-2                PIC X(1).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-NUMBER-3                  PIC X(2).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  FUND-3                         PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  AGENCY-3                       PIC X(3).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10 XORGANIZATION-3                 PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  SUB-ORG-3                      PIC X(2).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  APPR-UNIT-3                    PIC X(9).               
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  ACTIVITY-3                     PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  OBJECT-3                       PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  SUB-OBJECT-3                   PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  JOB-NUMBER-3                   PIC X(8).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  REPORTING-CATEGORY-3           PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  LINE-AMOUNT-3                  PIC X(14).               
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  LINE-ACTION-3                  PIC X(1).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  PARTIAL-FINAL-3                PIC X(1).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  LINE-NUMBER-4                  PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  FUND-4                         PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  AGENCY-4                       PIC X(3).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10 XORGANIZATION-4                 PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  SUB-ORG-4                      PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  APPR-UNIT-4                    PIC X(9).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  ACTIVITY-4                     PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  OBJECT-4                       PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  SUB-OBJECT-4                   PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  JOB-NUMBER-4                   PIC X(8).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  REPORTING-CATEGORY-4           PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  LINE-AMOUNT-4                  PIC X(14).               
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  LINE-ACTION-4                  PIC X(1).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  PARTIAL-FINAL-4                PIC X(1).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  LINE-NUMBER-5                  PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  FUND-5                         PIC X(4). 
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  AGENCY-5                       PIC X(3).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10 XORGANIZATION-5                 PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  SUB-ORG-5                      PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  APPR-UNIT-5                    PIC X(9).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  ACTIVITY-5                     PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  OBJECT-5                       PIC X(4).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  SUB-OBJECT-5                   PIC X(2).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  JOB-NUMBER-5                   PIC X(8).                
         10  FILLER                         PIC X(01) VALUE '|'.
         10  REPORTING-CATEGORY-5           PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-AMOUNT-5                  PIC X(14).              
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-ACTION-5                  PIC X(1).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  PARTIAL-FINAL-5                PIC X(1).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-NUMBER-6                  PIC X(2).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  FUND-6                         PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  AGENCY-6                       PIC X(3).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10 XORGANIZATION-6                 PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  SUB-ORG-6                      PIC X(2).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  APPR-UNIT-6                    PIC X(9).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  ACTIVITY-6                     PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  OBJECT-6                       PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  SUB-OBJECT-6                   PIC X(2).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  JOB-NUMBER-6                   PIC X(8).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  REPORTING-CATEGORY-6           PIC X(4).               
         10  FILLER                         PIC X(01) VALUE '|'.
         10  LINE-AMOUNT-6                  PIC X(14).              
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  LINE-ACTION-6                  PIC X(1).                
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  PARTIAL-FINAL-6                PIC X(1).                
         10  FILLER                         PIC X(01) VALUE '|'. 
     05  PG-LN-DATA.                                             
         10  LINE-NUM                       PIC X(3).            
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  QUANTITY                       PIC X(12).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  QUANT-INC-DEC-IND              PIC X(1).            
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  UNIT-OF-MEASURE                PIC X(4).            
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  PA-LINE-NUMBER                 PIC X(3).            
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  COMMODITY-CODE                 PIC X(14).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  DESCRIPTION                    PIC X(60).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  REF-ACCT-LINE                  PIC X(02).           
         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(1).            
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  EXTENDED-COST                  PIC X(14).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  REVALUATION                    PIC X.               
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  ITEM-CODE                      PIC X(3).            
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  UNADJUSTED-AMOUNT              PIC X(14).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  PG-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).