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 REAL-BDIT-TABLE                    REDEFINES MTIOAREA.
                 10  BDIT-KEY-FIELDS.
                  15  BID-ID.
                   20  BID-NUMBER                     PIC X(10).
                   20  BID-SUFFIX                     PIC X(01).
                 10  BDIT-RESULT-FIELDS.
                  15  BID-DESCRIPTION.
                   20  BID-DESCRIPTION-1              PIC X(40).
                   20  BID-DESCRIPTION-2              PIC X(40).
                   20  BID-DESCRIPTION-3              PIC X(40).
                  15  BUYER-CODE                      PIC X(02).
                  15  CONTRACT-FROM-DATE.
                   20  CONTRACT-FROM-YEAR.
                       25  CONTRACT-FROM-CC           PIC X(02).
                       25  CONTRACT-FROM-YY           PIC X(02).
                   20  CONTRACT-FROM-MONTH            PIC X(02).
                   20  CONTRACT-FROM-DAY              PIC X(02).
                  15  CONTRACT-TO-DATE.
                   20  CONTRACT-TO-YEAR.
                       25  CONTRACT-TO-CC             PIC X(02).
                       25  CONTRACT-TO-YY             PIC X(02).
                   20  CONTRACT-TO-MONTH              PIC X(02).
                   20  CONTRACT-TO-DAY                PIC X(02).
                  15  CREATION-DATE.
                   20  CREATION-YEAR.
                       25  CREATION-YEAR-CC           PIC X(02).
                       25  CREATION-YEAR-YY           PIC X(02).
                   20  CREATION-MONTH                 PIC X(02).
                   20  CREATION-DAY                   PIC X(02).
                  15  WP-INITIATED-DATE.
                   20  WP-INITIATED-YEAR.
                       25  WP-INITIATED-YEAR-CC       PIC X(02).
                       25  WP-INITIATED-YEAR-YY       PIC X(02).
                   20  WP-INITIATED-MONTH             PIC X(02).
                   20  WP-INITIATED-DAY               PIC X(02).
                  15  WP-ASSIGNMENT                   PIC X(03).
                  15  ROUGH-TO-BUYER-DATE.
                   20  ROUGH-TO-BUYER-YEAR.
                       25  ROUGH-TO-BUYER-CC          PIC X(02).
                       25  ROUGH-TO-BUYER-YY          PIC X(02).
                   20  ROUGH-TO-BUYER-MM              PIC X(02).
                   20  ROUGH-TO-BUYER-DD              PIC X(02).
                  15  ROUGH-MAILED-DATE.
                   20  ROUGH-MAILED-YEAR.
                       25  ROUGH-MAILED-YEAR-CC       PIC X(02).
                       25  ROUGH-MAILED-YEAR-YY       PIC X(02).
                   20  ROUGH-MAILED-MONTH             PIC X(02).
                   20  ROUGH-MAILED-DAY               PIC X(02).
                  15  ROUGH-DUE-DATE.
                   20  ROUGH-DUE-YEAR.
                       25  ROUGH-DUE-YEAR-CC          PIC X(02).
                       25  ROUGH-DUE-YEAR-YY          PIC X(02).
                   20  ROUGH-DUE-MONTH                PIC X(02).
                   20  ROUGH-DUE-DAY                  PIC X(02).
                  15  FINAL-INITIATED.
                   20  FINAL-INITIATED-YEAR.
                       25  FINAL-INITIATED-CC         PIC X(02).
                       25  FINAL-INITIATED-YY         PIC X(02).
                   20  FINAL-INITIATED-MM             PIC X(02).
                   20  FINAL-INITIATED-DD             PIC X(02).
                  15  FINAL-MAILED-DATE.
                   20  FINAL-MAILED-YEAR.
                       25  FINAL-MAILED-YEAR-CC       PIC X(02).
                       25  FINAL-MAILED-YEAR-YY       PIC X(02).
                   20  FINAL-MAILED-MONTH             PIC X(02).
                   20  FINAL-MAILED-DAY               PIC X(02).
                  15  PREBID-OPENING.
                   20  PREBID-OPENING-YEAR.
                       25  PREBID-OPENING-CC          PIC X(02).
                       25  PREBID-OPENING-YY          PIC X(02).
                   20  PREBID-OPENING-MM              PIC X(02).
                   20  PREBID-OPENING-DD              PIC X(02).
                  15  BID-OPEN-DATE.
                   20  BID-OPEN-YEAR.
                       25  BID-OPEN-YEAR-CC           PIC X(02).
                       25  BID-OPEN-YEAR-YY           PIC X(02).
                   20  BID-OPEN-MONTH                 PIC X(02).
                   20  BID-OPEN-DAY                   PIC X(02).
                  15  BID-AWARD-DATE.
                   20  BID-AWARD-YEAR.
                       25  BID-AWARD-YEAR-CC          PIC X(02).
                       25  BID-AWARD-YEAR-YY          PIC X(02).
                   20  BID-AWARD-MONTH                PIC X(02).
                   20  BID-AWARD-DAY                  PIC X(02).
                  15  AGCY-ANALYSIS-DATE.
                   20  AGCY-ANALYSIS-YEAR.
                       25  AGCY-ANALYSIS-CC           PIC X(02).
                       25  AGCY-ANALYSIS-YY           PIC X(02).
                   20  AGCY-ANALYSIS-MONTH            PIC X(02).
                   20  AGCY-ANALYSIS-DAY              PIC X(02).
                  15  BIDS-ISSUED                     PIC 9(04).
                  15  BIDS-RECEIVED                   PIC 9(04).
                  15  PERF-BOND-REQUIRED              PIC X(01).
                  15  PERF-BOND-RECEIVED              PIC X(01).
                  15  BID-BOND-REQUIRED               PIC X(01).
                  15  BID-BOND-RECEIVED               PIC X(01).
                  15  PRIOR-COST                      PIC 9(14).
                  15  BUDGET-DOLLARS                  PIC 9(14).
                  15  BUDGET-COST                     PIC 9(14).
                  15  ORGANIZATION-NUMBER             PIC X(04).
                  15  DEPARTMENT                      PIC X(30).
                  15  DEPT-ADDRESS                    PIC X(30).
                  15  CONTACT                         PIC X(30).
                  15  PHONE-NUMBER                    PIC X(12).
                  15  MISCELLANEOUS-1                 PIC X(10).
                  15  MISCELLANEOUS-2                 PIC X(10).
                  15  MISCELLANEOUS-3                 PIC X(10).
                  15  MISCELLANEOUS-4                 PIC X(10).
                  15  COMMENTS-60                     PIC X(60).
          03  FILLER                                  PIC X(1500).