01 FT-REC-DELIMIT. Start Stop 05 FT-HDR-KEY. Col Col 10 BAT-TYPE PIC X(02). 1 2 10 FILLER PIC X(01) VALUE '|'. 3 3 10 BAT-ORG1 PIC X(03). 4 6 10 FILLER PIC X(01) VALUE '|'. 7 7 10 BAT-NUMBER PIC X(06). 8 13 10 FILLER PIC X(01) VALUE '|'. 14 14 10 DOC-TYPE PIC X(02). 15 16 10 FILLER PIC X(01) VALUE '|'. 17 17 10 DOC-ORG1 PIC X(03). 18 20 10 FILLER PIC X(01) VALUE '|'. 21 21 10 DOC-NUMBER PIC X(11). 22 32 10 FILLER PIC X(01) VALUE '|'. 33 33 05 FT-HDR-INFO. 10 RECORD-MONTH PIC X(02). 34 35 10 RECORD-DAY PIC X(02). 36 37 10 RECORD-YEAR PIC X(02). 38 39 10 FILLER PIC X(01) VALUE '|'. 40 40 10 ACCOUNTING-PERIOD. 20 FISC-MONTH PIC X(02). 41 42 20 FISC-YEAR PIC X(02). 43 44 10 FILLER PIC X(01) VALUE '|'. 45 45 10 FIXED-ASSET-NUMBER PIC X(15). 46 60 10 FILLER PIC X(01) VALUE '|'. 61 61 10 FIXED-ASSET-TYPE PIC X(01). 62 62 10 FILLER PIC X(01) VALUE '|'. 63 63 10 TRANSFER-TYPE PIC X(01). 64 64 10 FILLER PIC X(01) VALUE '|'. 65 65 10 NEW-FA-GROUP PIC X(04). 66 69 10 FILLER PIC X(01) VALUE '|'. 70 70 10 NEW-FUND PIC X(04). 71 74 10 FILLER PIC X(01) VALUE '|'. 75 75 10 NEW-AGENCY PIC X(03). 76 78 10 FILLER PIC X(01) VALUE '|'. 79 79 10 NEW-ORGANIZATION PIC X(04). 80 83 10 FILLER PIC X(01) VALUE '|'. 84 84 10 NEW-ACTIVITY PIC X(04). 85 88 10 FILLER PIC X(01) VALUE '|'. 89 89 10 NEW-OBJECT PIC X(04). 90 93 10 FILLER PIC X(01) VALUE '|'. 94 94 10 NEW-LOCATION PIC X(04). 95 98 10 FILLER PIC X(01) VALUE '|'. 99 99 10 NEW-COMPLEX-BUILDING PIC X(08). 100 107 10 FILLER PIC X(01) VALUE '|'. 108 108 05 FT-STATUS-INFO. 10 FT-STATUS PIC X(05). 109 113 10 FILLER PIC X(01) VALUE '|'. 114 114 10 LAST-USER PIC X(08). 115 122 10 FILLER PIC X(01) VALUE '|'. 123 123 10 APPROVALS PIC X(05). 124 128 10 FILLER PIC X(01) VALUE '|'. 129 129 10 LAST-DATE PIC X(08). 130 137