***************************************************************
      *                                                             *
      *    TABLE: AGENCY-FED-AID-TABLE                              *
      *                                                             *
      *      KEY: AGENCY                                            *
      *           FED-AID-NUMBER                                    *
      ***************************************************************
       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 AGENCY-FED-AID-TABLE               REDEFINES MTIOAREA.
              05  DOCD-IOAREA.
                 10  AGENCY                           PIC X(03).
                 10  FED-AID-NUMBER                   PIC X(12).
                 10  FED-AID-STATUS                   PIC X(02).
                 10  FED-AID-START-DATE.
                  15  FED-AID-START-YEAR.
                   20  FED-AID-START-YEAR-CC          PIC X(02).
                   20  FED-AID-START-YEAR-YY          PIC X(02).
                  15  FED-AID-START-MONTH             PIC X(02).
                  15  FED-AID-START-DAY               PIC X(02).
                 10  FED-AID-END-DATE.
                  15  FED-AID-END-YEAR.
                   20  FED-AID-END-YEAR-CC            PIC X(02).
                   20  FED-AID-END-YEAR-YY            PIC X(02).
                  15  FED-AID-END-MONTH               PIC X(02).
                  15  FED-AID-END-DAY                 PIC X(02).
                 10  FED-AID-TITLE                    PIC X(30).
                 10  LETTER-OF-CREDIT-NUM             PIC X(10).
                 10  LETTER-OF-CREDIT-AMT             PIC S9(14).
                 10  FED-CAT-NUM.
                  15  FED-AGENCY-CODE                 PIC X(02).
                  15  FED-AID-CAT-NUMBER              PIC X(04).
                 10  FED-AGENCY-NAME                  PIC X(30).
                 10  CAN                              PIC X(08).
                 10  ID-NUMBER                        PIC X(12).
                 10  FED-APPROP-NUM                   PIC X(12).
                 10  LAST-ACTION-DATE.
                  15  LAST-ACTION-YEAR.
                   20  LAST-ACTION-YEAR-CC            PIC X(02).
                   20  LAST-ACTION-YEAR-YY            PIC X(02).
                  15  LAST-ACTION-MONTH               PIC X(02).
                  15  LAST-ACTION-DAY                 PIC X(02).
                 10  GOVWIDE-FED-AID-NUM              PIC X(12).
                 10  MAJOR-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  XORGANIZATION                    PIC X(04).
                 10  CONTACT                          PIC X(30).
                 10  CONTACT-PHONE                    PIC X(12).
                 10  FED-FISC-YR-ST-PRD               PIC X(02).
                 10  AWARD-DATE.
                     15  AWARD-DATE-CC                PIC X(02).
                     15  AWARD-DATE-YY                PIC X(02).
                     15  AWARD-DATE-MM                PIC X(02).
                     15  AWARD-DATE-DD                PIC X(02).
                 10  CMIA-DRAWDOWN-GRP                PIC X(02).
                 10  CMIA-REV-SOURCE                  PIC X(04).
                 10  CMIA-FUNDING-MTHD                PIC X(01).
                 10  CMIA-IND                         PIC X(01).
                 10  FED-SPLIT-PCT-X                  PIC X(07).
                 10  STATE-SPLIT-PCT-X                PIC X(07).
                 10  BOND-SPLIT-PCT-X                 PIC X(07).
                 10  OTHER-SPLIT-PCT-X                PIC X(07).
                 10  CMIA-PROV-CUST-CDE               PIC X(11).
                 10  CMIA-BILLING-CODE                PIC X(04).
                 10  FED-AID-LIQU-DATE.
                     15  FED-AID-LIQU-YEAR.
                         20  FED-AID-LIQU-YEAR-CC        PIC X(02).
                         20  FED-AID-LIQU-YEAR-YY        PIC X(02).
                     15  FED-AID-LIQU-MONTH              PIC X(02).
                     15  FED-AID-LIQU-DAY                PIC X(02).
          03  FILLER                                     PIC X(1252).