****************************************************************** * * TABLE: BS-ACCOUNT-TABLE * * KEY: FISC-YEAR * BS-ACCOUNT ****************************************************************** 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 BS-ACCOUNT-TABLE REDEFINES MTIOAREA. 05 DOCD-IOAREA. 10 BACC-KEY-FIELDS. 15 FISC-YEAR. 20 FISC-YEAR-CC PIC X(02). 20 FISC-YEAR-YY PIC X(02). 15 BS-ACCOUNT PIC X(04). 10 BACC-RESULT-FIELDS. 15 BS-CLASS PIC X(03). 15 BS-CATEGORY PIC X(02). 15 BS-ACCOUNT-NAME PIC X(30). 15 BS-ACCT-SHORT-NAME PIC X(12). 15 ACCOUNT-TYPE PIC X(02). 15 CASH-ACCOUNT-IND PIC X(01). 15 REPT-CAT-OPTION PIC X(01). 15 BS-GROUP PIC X(02). 15 SWEEP-INDICATOR PIC X(01). 15 VALIDATE-FBSA-IND PIC X(01). 15 CONTRIBUTED-IND PIC X(01). 15 EXPENSE-OBJECT PIC X(04). 15 REVENUE-SOURCE PIC X(04). 15 FASB-CLASS PIC X(01). 88 FASB-CLASS-UNREST VALUE 'U'. 88 FASB-CLASS-TEMP VALUE 'T'. 88 FASB-CLASS-PERM VALUE 'P'. 88 FASB-CLASS-VV VALUE 'U' 'T' 'P'. 15 1099-TYPE. 20 TYPE-OF-RETURN PIC X(01). 20 TYPE-OF-INCOME PIC X(02). 03 FILLER PIC X(1924).