*****************************************************************
      *                                                               *
      *    TABLE: PABB-PA-CREATION-BY-BIDD                            *
      *                                                               *
      *      KEY: BID-NUMBER                                          *
      *           BID-SUFFIX                                          *
      *           BID-LINE-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 PABB-PA-CREATION-BY-BID            REDEFINES MTIOAREA.
              05  DOCH-IOAREA.
                 10  PABB-HEADER-KEY-FIELDS.
                  15  BID-ID.
                   20  BID-NUMBER                     PIC X(10).
                   20  BID-SUFFIX                     PIC X(01).
                 10  PABB-HEADER-INFERRED-FIELDS.
                  15  LOW-BID-TOTAL                   PIC S9(14).
                  15  LOW-UNIT-TOTAL                  PIC S9(14).
                 10  PABB-HEADER-FIELDS-NOT-ON-TABL.
                  15  PA-NUMBER                       PIC X(11).
                  15  SELECT-LOW-FLAG                 PIC X(01).
            05  DOCD-IOAREA.
                 10  PABB-LINE-KEY-FIELDS.
                  15  BID-LINE-NUMBER                 PIC X(03).
                 10  PABB-RESULT-FIELDS.
                  15  RX-ID.
                   20  TRANS-CODE                     PIC X(02).
                   20  RX-NUMBER.
                    25  RX-NUMBER-AGENCY              PIC X(03).
                    25  RX-NUMBER-NUMBER              PIC X(11).
                   20  RX-LINE-NUM                    PIC X(03).
                  15  RX-DATE.
                   20  RX-YEAR.
                       25  RX-YEAR-CC                 PIC X(02).
                       25  RX-YEAR-YY                 PIC X(02).
                   20  RX-MONTH                       PIC X(02).
                   20  RX-DAY                         PIC X(02).
                  15  COMMODITY-CODE                  PIC X(14).
                  15  PC-ID.
                   20  PC-TRANS-CODE                  PIC X(02).
                   20  PC-NUMBER.
                    25  PC-NUMBER-AGENCY              PIC X(03).
                    25  PC-NUMBER-NUMBER              PIC X(11).
                   20  PC-LINE-NUM                    PIC X(03).
                  15  PC-DATE.
                   20  PC-YEAR.
                       25  PC-YEAR-CC                 PIC X(02).
                       25  PC-YEAR-YY                 PIC X(02).
                   20  PC-MONTH                       PIC X(02).
                   20  PC-DAY                         PIC X(02).
                  15  PC-LINE-AMOUNT                  PIC S9(14).
                  15  NUMBER-RESPONSES                PIC 9(04).
                  15  NUMBER-NO-BIDS                  PIC 9(04).
                  15  AWARD-VENDOR                    PIC X(11).
                  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  AWARD-AMOUNT                    PIC S9(14).
                  15  LOW-BID-DOLLAR-AMT              PIC S9(14).
                  15  LOW-BIDDER-DOLLAR               PIC X(11).
                  15  LOW-BID-DOLL-ALT-NUM            PIC X(02).
                  15  LOW-BID-UNIT-AMT                PIC S9(14).
                  15  LOW-BIDDER-UNIT                 PIC X(11).
                  15  LOW-BID-UNIT-ALT-NUM            PIC X(02).
                  15  NUMBER-OF-TABLE-HITS            PIC 9(03).
                  15  TEXT-FLAG                       PIC X(01).
                  15  NUMBER-NO-RESPONSES             PIC 9(04).
                  15  QUANTITY-X                      PIC X(12).
                  15  UNIT-COST-X                     PIC X(14).
                  15  UNIT-OF-MEASURE                 PIC X(04).
                  15  COMM-DESCRIPTION                PIC X(60).
                 10  PABB-LINE-FIELDS-NOT-ON-TABLE.
                  15  LINE-SELECT                     PIC X(01).
          03  FILLER                                  PIC X(1711).