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 ALT-ORGN-TABLE REDEFINES MTIOAREA. 10 ORGN-KEY-FIELDS. 15 FISC-YEAR. 20 FISC-YEAR-CC PIC X(02). 20 FISC-YEAR-YY PIC X(02). 15 AGENCY PIC X(03). 15 XORGANIZATION PIC X(04). 10 ORGN-RESULT-FIELDS. 15 ORG-APRVCODE PIC X. 15 ORG-NAME PIC X(30). 15 LEVEL-IND PIC X(02). 15 REPORTING-ORG-1 PIC X(04). 15 REPORTING-ORG-2 PIC X(04). 15 REPORTING-ORG-3 PIC X(04). 15 REPORTING-ORG-4 PIC X(04). 15 REPORTING-ORG-5 PIC X(04). 15 ORG-MANAGER-NAME PIC X(12). 15 ACTIVITY PIC X(04). 15 PROJECT PIC X(04). 15 GRANT-IND PIC X(01). 15 MY-IND PIC X. 15 XFUNCTION PIC X(04). 15 REPORTING-ORG-6 PIC X(04). 15 REPORTING-ORG-7 PIC X(04). 15 JOB-REQD-OPT-SP PIC X(01). 15 JOB-REQD-OPT-RV PIC X(01). 15 SUB-ORG-REQD-OPT-SP PIC X(01). 15 SUB-ORG-REQD-OPT-RV PIC X(01). 15 FUND PIC X(04). 15 INVENTORY-IND PIC X(01). 15 APPR-ORG-LEVEL PIC X(02). 15 ALLT-ORG-LEVEL PIC X(02). 15 EXP-BUD-ORG-LEVEL PIC X(02). 15 REV-BUD-ORG-LEVEL PIC X(02). 15 XSTATUS PIC X(01). 15 BUYER-CODE PIC X(02). 15 REPORTING-ORG-8 PIC X(04). 15 REPORTING-ORG-9 PIC X(04). 15 REPORTING-ORG-10 PIC X(04). 15 REPORTING-ORG-11 PIC X(04). 15 REPORTING-ORG-12 PIC X(04). 15 BP-EXCLUDE PIC X(01). 15 IND-COST-ORG-LEVEL PIC X(02). 03 FILLER PIC X(1859).