01  TI-REC-DELIMIT.                                                Start   Stop  
     05  TI-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  TI-HDR-DATA.                                           
         10  RECORD-MONTH                   PIC X(02).              38     39
         10  RECORD-DAY                     PIC X(02).              40     41 
         10  RECORD-YEAR                    PIC X(02).              42     43      
         10  FILLER                         PIC X(01) VALUE '|'.    44     44
         10  FISC-YEAR                      PIC X(02).              45     46  
         10  FISC-MONTH                     PIC X(02).              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  ISSUE-WHSE                     PIC X(04).              55     58 
         10  FILLER                         PIC X(01) VALUE '|'.    59     59 
         10  RECEIVE-WHSE                   PIC X(04).              60     63
         10  FILLER                         PIC X(01) VALUE '|'.    64     64
         10  DELIVERY-YEAR                  PIC X(02).              65     66
         10  DELIVERY-MONTH                 PIC X(02).              67     68
         10  DELIVERY-DAY                   PIC X(02).              69     70 
         10  FILLER                         PIC X(01) VALUE '|'.    71     71 
         10  ISSUED-YEAR                    PIC X(02).              72     73 
         10  ISSUED-MONTH                   PIC X(02).              74     75    
         10  ISSUED-DAY                     PIC X(02).              76     77  
         10  FILLER                         PIC X(01) VALUE '|'.    78     78 
     05  TI-LN-DATA.                                            
         10  COMM-LINE-NUMBER               PIC X(03).              79     81  
         10  FILLER                         PIC X(01) VALUE '|'.    82     82
         10  STOCK-NUMBER                   PIC X(14).              83     96
         10  STOCK-SUFFIX                   PIC X(03).              97     99  
         10  FILLER                         PIC X(01) VALUE '|'.   100    100 
         10  TRANSFER-QTY                   PIC X(12).             101    112
         10  FILLER                         PIC X(01) VALUE '|'.   113    113
         10  ISSUE-UNIT                     PIC X(04).             114    117
         10  FILLER                         PIC X(01) VALUE '|'.   118    118
         10  DESCRIPTION                    PIC X(30).             119    148
         10  FILLER                         PIC X(01) VALUE '|'.   149    149
         10  TI-STATUS                      PIC X(05).             150    154         
         10  FILLER                         PIC X(01) VALUE '|'.   155    155 
         10  LAST-USER                      PIC X(08).             156    163 
         10  FILLER                         PIC X(01) VALUE '|'.   164    164 
         10  APPROVALS                      PIC X(05).             165    169
         10  FILLER                         PIC X(01) VALUE '|'.   170    170 
         10  LAST-DATE                      PIC X(08).             171    178