****************************************************************** * * TABLE: FUND-TABLE * * KEY: FISC-YEAR * FUND ****************************************************************** 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 FUND-TABLE REDEFINES MTIOAREA. 05 DOCD-IOAREA. 10 FUND-KEY-FIELDS. 15 FISC-YEAR. 20 FISC-YEAR-CC PIC X(02). 20 FISC-YEAR-YY PIC X(02). 15 FUND PIC X(04). 10 FUND-RESULT-FIELDS. 15 FUND-TYPE PIC X(01). 15 FUND-NAME PIC X(30). 15 FUND-SHORT-NAME PIC X(12). 15 EXP-BUD-CTL-OPTION PIC X(01). 15 REV-BUD-CTL-OPTION PIC X(01). 15 APPR-CTL-OPTION PIC X(01). 15 ALLOT-CTL-OPTION PIC X(01). 15 ACCT-BAL-TBL-OPTION PIC X(01). 15 FUND-BAL-CTL-OPTION PIC X(01). 15 ALLOT-FREQUENCY PIC X(01). 15 BANK-ACCOUNT-CODE PIC X(2). 15 MEMO-DEPRECIATION PIC X(01). 15 FUND-CLASS PIC X(03). 15 FUND-CATEGORY PIC X(02). 15 FUND-GROUP PIC X(01). 15 SWEEP-INDICATOR PIC X(01). 15 FUND-TOLERANCE-PER PIC 9(02). 15 FUND-TOLERANCE-AMT PIC S9(14). 15 FUND-TOLERANCE-FLAG PIC X(01). 15 CASH-EDIT-IND PIC X(01). 15 CASH-EDIT-POOL-FUND PIC X(04). 15 BOND-FUND-IND PIC X(01). 15 NEGATIVE-EQUITY-IND PIC X(01). 15 FILLER PIC X. 15 BP-SUM-ON-ORG-EXP PIC X(01). 15 BP-SUM-ON-ACT-EXP PIC X(01). 15 BP-SUM-ON-OBJ-CLS PIC X(01). 15 BP-SUM-ON-OBJ-CAT PIC X(01). 15 BP-SUM-ON-OBJ-TYPE PIC X(01). 15 BP-SUM-ON-ORG-REV PIC X(01). 15 BP-SUM-ON-ACT-REV PIC X(01). 15 BP-SUM-ON-REV-CLS PIC X(01). 15 BP-SUM-ON-REV-CAT PIC X(01). 15 BP-SUM-ON-REV-TYPE PIC X(01). 15 BP-SUM-ON-APPR-EXP PIC X(01). 15 BP-SUM-ON-FUNC-EXP PIC X(01). 15 WRITE-OFF-METHOD PIC X(01). 15 MAJOR-FUND-IND PIC X(01). 15 PRIM-GOV-IND PIC X(01). 15 REPORT-INDICATORS. 20 REPORT-IND-1 PIC X(01). 20 REPORT-IND-2 PIC X(01). 20 REPORT-IND-3 PIC X(01). 20 REPORT-IND-4 PIC X(01). 15 INTERCEPT-EXEMPT PIC X(01). 03 FILLER PIC X(1887).