01  CI-REC-DELIMIT.                                            
     05  CI-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  CI-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  HDR-AGENCY                     PIC X(03).           
         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  FISC-MONTH                     PIC X(02).          
         10  FISC-YEAR                      PIC X(02).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  DOCUMENT-ACTION                PIC X(01).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  REF-TRANS-CODE                 PIC X(02).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  REF-TRANS-NUMBER-AGY           PIC X(03).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  REF-TRANS-NUMBER-NUM           PIC X(11).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  WAREHOUSE                      PIC X(04).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  REQUESTING-ORG                 PIC X(04).          
         10  FILLER                         PIC X(01) VALUE '|'.
         10  REQUESTED-BY                   PIC X(20).          
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  DELIVER-BLDG-ROOM              PIC X(10).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  PHONE-NUMBER                   PIC X(13).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  DELIVERY-YEAR                  PIC X(02).           
         10  DELIVERY-MONTH                 PIC X(02).           
         10  DELIVERY-DAY                   PIC X(02).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  DOC-TOTAL                      PIC X(14).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  SHIP-WHOLE-FLAG                PIC X(01).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  COMMENTS                       PIC X(30).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  ISSUE-NUMBER                   PIC X(02).           
         10  FILLER                         PIC X(01) VALUE '|'. 
     05  CI-LN-DATA.                                             
         10  COMM-LINE-NUMBER               PIC X(03).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  STOCK-NUMBER                   PIC X(14).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  STOCK-SUFFIX                   PIC X(03).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  RELEASED-QTY                   PIC X(12).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  ISSUE-UNIT                     PIC X(04).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  ISSUED-QTY                     PIC X(12).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  QTY-INC-DEC                    PIC X(01).           
         10  FILLER                         PIC X(01) VALUE '|'.
         10  UNIT-PRICE                     PIC X(14).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  PRICE-INC-DEC                  PIC X(01).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  DESCRIPTION                    PIC X(30).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  REF-ACCT-LINE                  PIC X(02).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  TOTAL-PRICE                    PIC X(14).           
         10  FILLER                         PIC X(01) VALUE '|'. 
         10  CI-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).