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 FIXED-ASSET-HISTORY-TABLE REDEFINES MTIOAREA. 05 DOCH-IOAREA. 10 FHIS-KEY-FIELDS. 15 FIXED-ASSET-TYPE PIC X(01). 15 FIXED-ASSET-NUMBER PIC X(15). 05 DOCD-IOAREA. 10 FHIS-KEY-LINE-FIELDS. 15 CHANGE-DATE. 20 CHANGE-DATE-YEAR. 25 CHANGE-DATE-YEAR-CC PIC X(02). 25 CHANGE-DATE-YEAR-YY PIC X(02). 20 CHANGE-DATE-MONTH PIC X(02). 20 CHANGE-DATE-DAY PIC X(02). 15 CHANGE-TIME. 20 CHANGE-TIME-HOUR PIC X(02). 20 CHANGE-TIME-MINUTE PIC X(02). 20 CHANGE-TIME-SECONDS PIC X(02). 15 SEQ-NUMBER-9 PIC 9(03). 10 FHIS-RESULT-FIELDS. 15 TRANSACTION-ID. 20 TRANS-CODE PIC X(02). 20 TRANS-NUMBER. 25 TRANS-NUMBER-AGENCY PIC X(03). 25 TRANS-NUMBER-NUMBER PIC X(11). 15 ACQUISITION-DATE. 20 ACQUISITION-YEAR PIC X(04). 20 ACQUISITION-MONTH PIC X(02). 20 ACQUISITION-DAY PIC X(02). 15 BETTERMENT-NUMBER PIC X(02). 15 FA-ACCOUNT. 20 FUND PIC X(04). 20 AGENCY PIC X(03). 20 XORGANIZATION PIC X(04). 20 ACTIVITY PIC X(04). 20 OBJECT PIC X(04). 15 ASSET-VALUE-X PIC X(14). 15 FA-GROUP PIC X(04). 15 LOCATION-04 PIC X(04). 15 COMPLEX-BUILDING PIC X(08). 15 DEPRECIATION-METHOD PIC X(03). 15 SALVAGE-VALUE PIC X(14). 15 FORWARD-REFERENCE PIC X(01). 15 REF-TRANS-ID. 20 REF-TRANS-CODE PIC X(02). 20 REF-TRANS-AGENCY PIC X(03). 20 REF-TRANS-NUMBER PIC X(11).