01  TR-REC-DELIMIT.                                                Start   End   
     05  TR-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  TR-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  RECEIVE-WHSE                   PIC X(04).              55     58
         10  FILLER                         PIC X(01) VALUE '|'.    59     59
         10  ISSUE-WHSE                     PIC X(04).              60     63   
         10  FILLER                         PIC X(01) VALUE '|'.    64     64 
         10  RECEIVED-BY                    PIC X(20).              65     84
         10  FILLER                         PIC X(01) VALUE '|'.    85     85 
         10  RECEIVED-MONTH                 PIC X(02).              86     87
         10  RECEIVED-DAY                   PIC X(02).              88     89
         10  RECEIVED-YEAR                  PIC X(02).              90     91
         10  FILLER                         PIC X(01) VALUE '|'.    92     92
     05  TR-LN-DATA.                                             
         10  COMM-LINE-NUMBER               PIC X(03).              93     95 
         10  FILLER                         PIC X(01) VALUE '|'.    96     96
         10  STOCK-NUMBER                   PIC X(14).              97    110
         10  STOCK-SUFFIX                   PIC X(03).             111    113  
         10  FILLER                         PIC X(01) VALUE '|'.   114    114
         10  ISSUE-UNIT                     PIC X(04).             115    118  
         10  FILLER                         PIC X(01) VALUE '|'.   119    119
         10  RECEIVED-QTY                   PIC X(12).             120    131
         10  FILLER                         PIC X(01) VALUE '|'.   132    132 
         10  DESCRIPTION                    PIC X(30).             133    162 
         10  FILLER                         PIC X(01) VALUE '|'.   163    163 
         10  TR-STATUS                      PIC X(05).             164    168
         10  FILLER                         PIC X(01) VALUE '|'.   169    169
         10  LAST-USER                      PIC X(08).             170    177
         10  FILLER                         PIC X(01) VALUE '|'.   178    178 
         10  APPROVALS                      PIC X(05).             179    183
         10  FILLER                         PIC X(01) VALUE '|'.   184    184 
         10  LAST-DATE                      PIC X(08).             185    192