*****************************************************************
      *                                                               *
      *    TABLE: BIDR-INPUT-SCREEN                                   *
      *                                                               *
      *      KEY: BID-NUMBER                                          *
      *           BID-SUFFIX                                          *
      *           VENDOR-CODE                                         *
      *****************************************************************
       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 BIDR-INPUT-SCREEN                  REDEFINES MTIOAREA.
              05  DOCD-IOAREA.
                 10  BIDR-KEY-FIELDS.
                  15  BID-ID.
                   20  BID-NUMBER                     PIC X(10).
                   20  BID-SUFFIX                     PIC X(01).
                  15  VENDOR-CODE.
                   20  VENDOR-NUMBER                  PIC X(10).
                   20  VENDOR-ADDR-IND                PIC X(01).
                 10  BIDR-RESULT-FIELDS.
                  15  FOB-POINT                       PIC X(01).
                  15  RESPONSE-DATE.
                   20  RESPONSE-YEAR.
                       25  RESPONSE-YEAR-CC           PIC X(02).
                       25  RESPONSE-YEAR-YY           PIC X(02).
                   20  RESPONSE-MONTH                 PIC X(02).
                   20  RESPONSE-DAY                   PIC X(02).
                  15  QUOTATION-BY                    PIC X(20).
                  15  QUOTATION-NUMBER                PIC X(20).
                  15  DELIVERY-DATE.
                   20  DELIVERY-YEAR.
                       25  DELIVERY-YEAR-CC           PIC X(02).
                       25  DELIVERY-YEAR-YY           PIC X(02).
                   20  DELIVERY-MONTH                 PIC X(02).
                   20  DELIVERY-DAY                   PIC X(02).
                  15  ACTUAL-BID                      PIC S9(14).
                  15  COMMENTS-30                     PIC X(30).
                  15  LOW-BID-INDICATOR               PIC X(01).
                  15  TERMS                           PIC X(12).
                  15  NO-BID-INDICATOR                PIC X(01).
                  15  DISCOUNT-9                      PIC S9(6)V99.
                  15  BID-RESP-TEXT                   PIC X(01).
                  15  WHOLE-BID                       PIC X(01).
                  15  BT-IND-FLAG                     PIC X(01).
                  15  NO-RESPONSE-IND                 PIC X(01).
                  15  NUM-OF-RESPONSES                PIC 9(04).
                 10  BIDR-INFERRED-FIELDS.
                  15  VENDOR-NAME                     PIC X(30).
          03  FILLER                                  PIC X(1847).