***************************************************************
      *                                                             *
      *    TABLE: SUB-PROJECT-DESCRIPT-TABLE                        *
      *                                                             *
      *      KEY: AGENCY                                            *
      *           PROJECT-5                                         *
      *           SUB-PROJECT                                       *
      *           PHASE                                             *
      ***************************************************************
       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 SUB-PROJECT-DESCRIPT-TABLE         REDEFINES MTIOAREA.
              05  DOCD-IOAREA.
                 10  SPDT-KEY-FIELDS.
                  15  AGENCY                          PIC X(03).
                  15  PROJECT-DATA.
                   20  PROJECT-5                      PIC X(05).
                   20  SUB-PROJECT                    PIC X(02).
                   20  PHASE                          PIC X(01).
                 10  SPDT-RESULT-FIELDS.
                  15  MANAGER                         PIC X(20).
                  15  XORGANIZATION                   PIC X(04).
                  15  OLD-PROJ-NUMBER                 PIC X(15).
                  15  PHASE-DESC                      PIC X(12).
                  15  GEN-REMARKS                     PIC X(20).
                  15  STATE-ROUTE                     PIC X(04).
                  15  BOARD-DISTRICT                  PIC X(01).
                  15  MILE-POST                       PIC X(03).
                  15  LEGISLATIVE-DISTRICT            PIC X(02).
                  15  PROJ-LENGTH                     PIC X(06).
                  15  INDIAN-RESERVATION              PIC X(01).
                  15  STATION                         PIC X(04).
                  15  POST-MILE                       PIC X(03).
                  15  ENG-DISTRICT                    PIC X(01).
                  15  ENG-AREA                        PIC X(01).
                  15  CORRIDOR                        PIC X(03).
                  15  COUNTY                          PIC X(03).
                  15  BID-DATE.
                   20  BID-YEAR.
                    25  BID-YEAR-CC                   PIC X(02).
                    25  BID-YEAR-YY                   PIC X(02).
                   20  BID-MONTH                      PIC X(02).
                   20  BID-DAY                        PIC X(02).
                  15  CONTRACTOR                      PIC X(20).
                  15  BID-AMOUNT-X                    PIC X(14).
                  15  START-DATE.
                   20  START-YEAR.
                    25  START-YEAR-CC                 PIC X(02).
                    25  START-YEAR-YY                 PIC X(02).
                   20  START-MONTH                    PIC X(02).
                   20  START-DAY                      PIC X(02).
                  15  AWARD-DATE.
                   20  AWARD-YEAR.
                    25  AWARD-YEAR-CC                 PIC X(02).
                    25  AWARD-YEAR-YY                 PIC X(02).
                   20  AWARD-MONTH                    PIC X(02).
                   20  AWARD-DAY                      PIC X(02).
                  15  END-DATE.
                   20  END-YEAR.
                    25  END-YEAR-CC                   PIC X(02).
                    25  END-YEAR-YY                   PIC X(02).
                   20  END-MONTH                      PIC X(02).
                   20  END-DAY                        PIC X(02).
                  15  COMPLETION-DATE.
                   20  COMP-YEAR.
                    25  COMP-YEAR-CC                  PIC X(02).
                    25  COMP-YEAR-YY                  PIC X(02).
                   20  COMP-MONTH                     PIC X(02).
                   20  COMP-DAY                       PIC X(02).
                  15  SPONSOR                         PIC X(20).
                  15  FINAL-AMOUNT-X                  PIC X(14).
                  15  FED-AID-SYSTEM                  PIC X(02).
                  15  TEMP-CLOSE-DATE.
                   20  TEMP-CLS-YR.
                    25  TEMP-CLS-YR-CC                PIC X(02).
                    25  TEMP-CLS-YR-YY                PIC X(02).
                   20  TEMP-CLS-MO                    PIC X(02).
                   20  TEMP-CLS-DAY                   PIC X(02).
                  15  FHWA-ITEM-NUMBER                PIC X(05).
                  15  EXPEND-CLOSE-DATE.
                   20  EXPEND-CLS-YR.
                    25  EXPEND-CLS-YR-CC              PIC X(02).
                    25  EXPEND-CLS-YR-YY              PIC X(02).
                   20  EXPEND-CLS-MO                  PIC X(02).
                   20  EXPEND-CLS-DAY                 PIC X(02).
                  15  FED-SEQ-NUMBER                  PIC X(03).
                  15  FINAL-VOUCHER-DATE.
                   20  FINAL-V-YR.
                    25  FINAL-V-YR-CC                 PIC X(02).
                    25  FINAL-V-YR-YY                 PIC X(02).
                   20  FINAL-V-MO                     PIC X(02).
                   20  FINAL-V-DAY                    PIC X(02).
                  15  BUDGET-ITEM                     PIC X(03).
                  15  HISTORY-DATE.
                   20  HISTORY-YEAR.
                    25  HISTORY-YEAR-CC               PIC X(02).
                    25  HISTORY-YEAR-YY               PIC X(02).
                   20  HISTORY-MONTH                  PIC X(02).
                   20  HISTORY-DAY                    PIC X(02).
                  15  PROGRAM-CATEGORY                PIC X(02).
                  15  SEC-ROADS-PLAN                  PIC X(01).
                  15  PFPMS-INTERFACE                 PIC X(01).
                  15  FUNCTIONAL-CLASS                PIC X(03).
                  15  BUILDING-NUMBER                 PIC X(05).
                  15  PARCEL-NUMBER                   PIC X(06).
                  15  WORK-DESC                       PIC X(20).
                  15  ACI-IND                         PIC X(01).
                  15  SPONSOR-CODE                    PIC X(02).
          03  FILLER                                  PIC X(1692).