***************************************************************** * * * TABLE: FAS2-TABLE * * * * KEY: FIXED-ASSET-TYPE * * FIXED-ASSET-NUMBER * ***************************************************************** 01 MTI-LOG. 03 LOGREC-PREFIX. 05 LOGREC-RECLEN PIC S9(04) COMP. 05 LOGREC-TABNUM PIC X(4). 05 LOGREC-ACTION PIC X. 88 LOGREC-ACTION-ADD VALUE 'A'. 88 LOGREC-ACTION-CHANGE VALUE 'C'. 88 LOGREC-ACTION-DELETE VALUE 'D'. 05 LOGREC-DATE. 07 LOGREC-CC PIC XX. 07 LOGREC-YY PIC XX. 07 LOGREC-MM PIC XX. 07 LOGREC-DD PIC XX. 05 LOGREC-TIME. 07 LOGREC-TIME-HH PIC XX. 07 LOGREC-TIME-MM PIC XX. 07 LOGREC-TIME-SS PIC XX. 05 LOGREC-TABID PIC X(4). 05 LOGREC-TYPE PIC X. 03 FAS2-TABLE REDEFINES MTIOAREA. 05 DOCD-IOAREA. 10 FAS2-KEY-FIELDS. 15 FIXED-ASSET-TYPE PIC X(01). 15 FIXED-ASSET-NUMBER PIC X(15). 10 FAS2-RESULT-FIELDS. 15 BETTERMENT-COUNT PIC X(02). 15 FA-GROUP PIC X(04). 15 LOC-4 PIC X(04). 15 FUND PIC X(04). 15 AGENCY PIC X(03). 15 XORGANIZATION PIC X(04). 15 ACTIVITY PIC X(04). 15 OBJECT PIC X(04). 15 DESCRIPTION-30 PIC X(30). 15 ACQUISITION-DATE. 20 ACQUISITION-YEAR PIC X(04). 20 ACQUISITION-MONTH PIC X(02). 20 ACQUISITION-DAY PIC X(02). 15 ACQUISITION-METHOD PIC X(01). 15 VALUATION-DATE. 20 VALUATION-YEAR PIC X(04). 20 VALUATION-MONTH PIC X(02). 20 VALUATION-DAY PIC X(02). 15 VALUATION-AMOUNT PIC X(14). 15 REPLACEMENT-DATE. 20 REPLACEMENT-YEAR PIC X(4). 20 REPLACEMENT-MONTH PIC X(02). 20 REPLACEMENT-DAY PIC X(02). 15 FUNDING-SOURCE PIC X(30). 15 USEFUL-LIFE PIC X(03). 15 SALVAGE-VALUE PIC X(14). 15 DEPRECIATION-METHOD PIC X(03). 15 DISPOSITION-AUTH PIC X(15). 15 DISPOSITION-METHOD PIC X(01). 15 DISPOSITION-DATE-2. 20 DISPOSITION-YEAR-4 PIC X(04). 20 DISPOSITION-MONTH PIC X(02). 20 DISPOSITION-DAY PIC X(02). 15 SELLING-PRICE PIC X(14). 15 MEMO-DISP-VALUE PIC X(14). 15 EQUITY-ACCOUNTS. 20 EQUITY-ACCOUNT-1 PIC X(04). 20 EQUITY-ACCOUNT-2 PIC X(04). 20 EQUITY-ACCOUNT-3 PIC X(04). 20 EQUITY-ACCOUNT-4 PIC X(04). 20 EQUITY-ACCOUNT-5 PIC X(04). 20 EQUITY-ACCOUNT-6 PIC X(04). 20 EQUITY-ACCOUNT-7 PIC X(04). 20 EQUITY-ACCOUNT-8 PIC X(04). 15 EQUITY-ASSET-VALUES. 20 ASSET-VALUE-1 PIC X(14). 20 ASSET-VALUE-2 PIC X(14). 20 ASSET-VALUE-3 PIC X(14). 20 ASSET-VALUE-4 PIC X(14). 20 ASSET-VALUE-5 PIC X(14). 20 ASSET-VALUE-6 PIC X(14). 20 ASSET-VALUE-7 PIC X(14). 20 ASSET-VALUE-8 PIC X(14). 15 EQUITY-ACCUM-DEPR. 20 ACCUM-DEPR-1 PIC X(14). 20 ACCUM-DEPR-2 PIC X(14). 20 ACCUM-DEPR-3 PIC X(14). 20 ACCUM-DEPR-4 PIC X(14). 20 ACCUM-DEPR-5 PIC X(14). 20 ACCUM-DEPR-6 PIC X(14). 20 ACCUM-DEPR-7 PIC X(14). 20 ACCUM-DEPR-8 PIC X(14). 15 CATALOG-CODE PIC X(08). 15 COMPLEX-BUILDING PIC X(08). 15 DOLI-VALUE. 20 DOLI-MM PIC X(02). 20 DOLI-YYYY PIC X(04). 15 CONDITION-CODE PIC X(01). 15 REORG-DATE. 20 REORG-YEAR PIC X(04). 20 REORG-MONTH PIC X(02). 20 REORG-DAY PIC X(02). 15 NET-BOOK-VALUE PIC X(14). 15 GOVT-FND-FED-BILLING PIC X(1). 10 FAS2-DISPLAY-ONLY-FIELDS. 15 SUMMARY-ACCUM-DEPR PIC X(14). 15 SUMMARY-ASSET-VALUE PIC X(14). 15 SUMM-ASSET-VAL-SCR1 PIC X(18). 03 FILLER PIC X(1482).