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-BDMH-TABLE                    REDEFINES MTIOAREA.
                 10  BDMH-KEY-FIELDS.
                  15  BID-ID.
                   20  BID-NUMBER                     PIC X(10).
                   20  BID-SUFFIX                     PIC X(01).
                 10  BDMH-RESULT-FIELDS.
                  15  BID-TYPE                        PIC X(01).
                  15  BID-CATEGORY                    PIC X(01).
                  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  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  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  PRINT-DATE.
                   20  PRINT-YEAR.
                       25  PRINT-YEAR-CC              PIC X(02).
                       25  PRINT-YEAR-YY              PIC X(02).
                   20  PRINT-MONTH                    PIC X(02).
                   20  PRINT-DAY                      PIC X(02).
                  15  ADDENDA                         PIC 9(02).
                  15  NUMBER-BIDS-SENT                PIC 9(04).
                  15  NUMBER-RESPONSES                PIC 9(04).
                  15  NUMBER-NO-RESPONSES             PIC 9(04).
                  15  NUMBER-NO-BIDS                  PIC 9(04).
                  15  LAST-EVALUATION-DATE.
                   20  LAST-EVAL-YEAR.
                       25  LAST-EVAL-YEAR-CC          PIC X(02).
                       25  LAST-EVAL-YEAR-YY          PIC X(02).
                   20  LAST-EVAL-MONTH                PIC X(02).
                   20  LAST-EVAL-DAY                  PIC X(02).
                  15  LAST-EVALUATION-TIME.
                   20  LAST-EVAL-HOUR                 PIC X(02).
                   20  LAST-EVAL-MINUTE               PIC X(02).
                   20  LAST-EVAL-SECOND               PIC X(02).
                  15  LAST-EVALUATOR                  PIC X(02).
                  15  OPEN-CLOSED-IND                 PIC X(01).
                  15  SHIP-ADDRESS-CODE               PIC X(03).
                  15  NUM-OF-BID-LINES                PIC 9(04).
                  15  XSTATUS-3                       PIC X(03).
                  15  DESCRIPTION-30                  PIC X(30).
                  15  REQ-DATE.
                   20  REQ-YEAR.
                       25  REQ-YEAR-CC                PIC X(02).
                       25  REQ-YEAR-YY                PIC X(02).
                   20  REQ-MONTH                      PIC X(02).
                   20  REQ-DAY                        PIC X(02).
                  15  LABEL-REQUEST-FLAG              PIC X(01).
          03  FILLER                                  PIC X(1757).