***************************************************************** * * * TABLE: FUND-BALANCE-TABLE * * * * KEY: 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-BALANCE-TABLE REDEFINES MTIOAREA. 05 DOCD-IOAREA. 10 FBAL-KEY-FIELDS. 15 FUND PIC X(04). 10 FBAL-RESULT-FIELDS. 15 MEMO-ACTUAL-FUND-BAL PIC S9(14). 15 REQ-MIN-FUND-BAL PIC S9(14). 03 FILLER PIC X(1968).