01 FA-LN-REC-DELIMIT. Start End 05 FA-HDR-INFO. 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 TRANS-CODE PIC X(02). 15 16 10 FILLER PIC X(01) VALUE '|'. 17 17 10 TRANS-AGENCY PIC X(03). 18 20 10 FILLER PIC X(01) VALUE '|'. 21 21 10 TRANS-NUMBER PIC X(11). 22 32 10 FILLER PIC X(01) VALUE '|'. 33 33 10 RECORD-DATE. 20 RECORD-YEAR PIC X(02). 34 35 20 RECORD-MONTH PIC X(02). 36 37 20 RECORD-DAY 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 FA-GROUP PIC X(04). 64 67 10 FILLER PIC X(01) VALUE '|'. 68 68 10 LOCATION PIC X(04). 69 72 10 FILLER PIC X(01) VALUE '|'. 73 73 10 FUND PIC X(04). 74 77 10 FILLER PIC X(01) VALUE '|'. 78 78 10 AGENCY PIC X(03). 79 81 10 FILLER PIC X(01) VALUE '|'. 82 82 10 XORGANIZATION PIC X(04). 83 86 10 FILLER PIC X(01) VALUE '|'. 87 87 10 ACTIVITY PIC X(04). 88 91 10 FILLER PIC X(01) VALUE '|'. 92 92 10 OBJECT PIC X(04). 93 96 10 FILLER PIC X(01) VALUE '|'. 97 97 10 DESCRIPTION PIC X(30). 98 127 10 FILLER PIC X(01) VALUE '|'. 128 128 10 ACQUISITION-DATE. 20 ACQUISITION-YEAR PIC X(04). 129 132 20 ACQUISITION-MONTH PIC X(02). 133 134 20 ACQUISITION-DAY PIC X(02). 135 136 10 FILLER PIC X(01) VALUE '|'. 137 137 10 ACQUISITION-METHOD PIC X(01). 138 138 10 FILLER PIC X(01) VALUE '|'. 139 139 10 SERIAL-NUMBER PIC X(22). 140 161 10 FILLER PIC X(01) VALUE '|'. 162 162 10 MANUFACTURER PIC X(20). 163 182 10 FILLER PIC X(01) VALUE '|'. 183 183 10 MODEL-NUMBER PIC X(15). 184 198 10 FILLER PIC X(01) VALUE '|'. 199 199 10 VENDOR-CODE PIC X(11). 200 210 10 FILLER PIC X(01) VALUE '|'. 211 211 10 VENDOR-NAME PIC X(30). 212 241 10 FILLER PIC X(01) VALUE '|'. 242 242 10 XAREA PIC X(10). 243 252 10 FILLER PIC X(01) VALUE '|'. 253 253 10 PLAT-NUMBER PIC X(10). 254 263 10 FILLER PIC X(01) VALUE '|'. 264 264 10 PURCHASE-AUTH PIC X(13). 265 277 10 FILLER PIC X(01) VALUE '|'. 278 278 10 FUNDING-SOURCE PIC X(30). 279 308 10 FILLER PIC X(01) VALUE '|'. 309 309 10 IN-SERVICE-DATE. 20 IN-SERVICE-YEAR PIC X(04). 310 313 20 IN-SERVICE-MONTH PIC X(02). 314 315 20 IN-SERVICE-DAY PIC X(02). 316 317 10 FILLER PIC X(01) VALUE '|'. 318 318 10 REPLACEMENT-DATE. 20 REPLACEMENT-YEAR PIC X(04). 319 322 20 REPLACEMENT-MONTH PIC X(02). 323 324 20 REPLACEMENT-DAY PIC X(02). 325 326 10 FILLER PIC X(01) VALUE '|'. 327 327 10 VALUATION-DATE. 20 VALUATION-YEAR PIC X(04). 328 331 20 VALUATION-MONTH PIC X(02). 332 333 20 VALUATION-DAY PIC X(02). 334 335 10 FILLER PIC X(01) VALUE '|'. 336 336 10 VALUATION-AMOUNT PIC X(14). 337 350 10 FILLER PIC X(01) VALUE '|'. 351 351 10 UNITS PIC X(08). 352 359 10 FILLER PIC X(01) VALUE '|'. 360 360 10 CLOSING-COSTS PIC X(14). 361 374 10 FILLER PIC X(01) VALUE '|'. 375 375 10 USEFUL-LIFE PIC X(03). 376 378 10 FILLER PIC X(01) VALUE '|'. 379 379 10 SALVAGE-VALUE PIC X(14). 380 393 10 FILLER PIC X(01) VALUE '|'. 394 394 10 DEPRECIATION-METHOD PIC X(03). 395 397 10 FILLER PIC X(01) VALUE '|'. 398 398 10 MEMO-DISP-VALUE PIC X(14). 399 412 10 FILLER PIC X(01) VALUE '|'. 413 413 10 SUMMARY-ASSET-VALUE PIC X(14). 414 427 10 FILLER PIC X(01) VALUE '|'. 428 428 10 CATALOG-CODE PIC X(08). 429 436 10 FILLER PIC X(01) VALUE '|'. 437 437 10 PROJECT-CODE PIC X(04). 438 441 10 FILLER PIC X(01) VALUE '|'. 442 442 10 CIP-REVERSAL-FLAG PIC X(01). 443 443 10 FILLER PIC X(01) VALUE '|'. 444 444 10 DOCUMENT-ACTION PIC X(01). 445 445 10 FILLER PIC X(01) VALUE '|'. 446 446 10 COMPLEX-BUILDING PIC X(08). 447 454 10 FILLER PIC X(01) VALUE '|'. 455 455 10 GOVT-FND-FED-BILLING PIC X(01). 456 456 10 FILLER PIC X(01) VALUE '|'. 457 457 10 REF-TRANS-ID. 20 REF-TRANS-CODE PIC X(02). 458 459 20 FILLER PIC X(01) VALUE '|'. 460 460 20 REF-TRANS-AGENCY PIC X(03). 461 463 20 FILLER PIC X(01) VALUE '|'. 464 464 20 REF-TRANS-NUMBER PIC X(11). 465 475 10 FILLER PIC X(01) VALUE '|'. 476 476 05 FA-LINE-INFO. 10 EQUITY-ACCOUNT-1 PIC X(04). 477 480 10 FILLER PIC X(01) VALUE '|'. 481 481 10 ASSET-VALUE-1 PIC X(14). 482 495 10 FILLER PIC X(01) VALUE '|'. 496 496 10 DESCRIPTION-FIELDS. 20 DESCRIPTION-FIELD-1 PIC X(12). 497 508 20 FILLER PIC X(01) VALUE '|'. 509 509 20 DESCRIPTION-FIELD-2 PIC X(12). 510 521 20 FILLER PIC X(01) VALUE '|'. 522 522 20 DESCRIPTION-FIELD-3 PIC X(12). 523 534 20 FILLER PIC X(01) VALUE '|'. 535 535 20 DESCRIPTION-FIELD-4 PIC X(12). 536 547 20 FILLER PIC X(01) VALUE '|'. 548 548 20 DESCRIPTION-FIELD-5 PIC X(12). 549 560 20 FILLER PIC X(01) VALUE '|'. 561 561 20 DESCRIPTION-FIELD-6 PIC X(12). 562 573 20 FILLER PIC X(01) VALUE '|'. 574 574 05 FA-STATUS-INFO. 10 FA-STATUS PIC X(05). 575 579 10 FILLER PIC X(01) VALUE '|'. 580 580 10 LAST-USER PIC X(08). 581 588 10 FILLER PIC X(01) VALUE '|'. 589 589 10 APPROVALS PIC X(05). 590 594 10 FILLER PIC X(01) VALUE '|'. 595 595 10 LAST-DATE PIC X(08). 596 603