*************************************************************** * * * TABLE: GOVWIDE-FED-AID-TABLE * * * * KEY: GOVWIDE-FED-AID-NUM * *************************************************************** 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 GOVWIDE-FED-AID-TABLE REDEFINES MTIOAREA. 05 DOCD-IOAREA. 10 GOVWIDE-FED-AID-NUM PIC X(12). 10 CURR-EST-REV-FED-AMT PIC S9(14). 10 CURR-EST-REV-GOV-AMT PIC S9(14). 10 CURR-EST-REV-BND-AMT PIC S9(14). 10 CURR-EST-REV-LOC-AMT PIC S9(14). 10 FEDERAL-POS PIC S9(08). 10 GOVERNMENT-POS PIC S9(08). 10 BOND-POS PIC S9(08). 10 LOCAL-POS PIC S9(08). 10 ACCRUED-FED-AMT PIC S9(14). 10 ACCRUED-GOV-AMT PIC S9(14). 10 ACCRUED-BND-AMT PIC S9(14). 10 ACCRUED-LOC-AMT PIC S9(14). 10 TOTAL-ACCRUED-AMT PIC S9(14). 10 COLLECTED-FED-AMT PIC S9(14). 10 COLLECTED-GOV-AMT PIC S9(14). 10 COLLECTED-BND-AMT PIC S9(14). 10 COLLECTED-LOC-AMT PIC S9(14). 10 TOTAL-COLLECTED-AMT PIC S9(14). 10 AVAILABLE-BALANCE PIC S9(14). 10 FED-AID-DESC-1 PIC X(60). 10 FED-AID-DESC-2 PIC X(60). 10 TOTAL-EST-REV-AMT PIC S9(14). 10 ENCUMBERED-AMT PIC S9(14). 10 EXPENDED-AMT PIC S9(14). 10 EXPENSED-AMT PIC S9(14). 10 FEDERAL-AID-CHARGES PIC S9(14). 10 DISALLOWANCE-AMT PIC S9(14). 10 FAID-TITLE PIC X(30). 03 FILLER PIC X(1512).