03 REAL-BDMH-TABLE                    REDEFINES MTIOAREA.     00000001
                 10  BDMH-KEY-FIELDS.                                   00000002
                  15  BID-ID.                                           00000003
                   20  BID-NUMBER                     PIC X(10).        00000004
                   20  BID-SUFFIX                     PIC X(01).        00000005
                 10  BDMH-RESULT-FIELDS.                                00000006
                  15  BID-TYPE                        PIC X(01).        00000007
                  15  BID-CATEGORY                    PIC X(01).        00000008
                  15  BID-DESCRIPTION.                                  00000009
                   20  BID-DESCRIPTION-1              PIC X(40).        00000010
                   20  BID-DESCRIPTION-2              PIC X(40).        00000011
                   20  BID-DESCRIPTION-3              PIC X(40).        00000012
                  15  BUYER-CODE                      PIC X(02).        00000013
                  15  CREATION-DATE.                                    00000014
                   20  CREATION-YEAR.                                   00000015
                       25  CREATION-YEAR-CC           PIC X(02).        00000016
                       25  CREATION-YEAR-YY           PIC X(02).        00000017
                   20  CREATION-MONTH                 PIC X(02).        00000018
                   20  CREATION-DAY                   PIC X(02).        00000019
                  15  BID-OPEN-DATE.                                    00000020
                   20  BID-OPEN-YEAR.                                   00000021
                       25  BID-OPEN-YEAR-CC           PIC X(02).        00000022
                       25  BID-OPEN-YEAR-YY           PIC X(02).        00000023
                   20  BID-OPEN-MONTH                 PIC X(02).        00000024
                   20  BID-OPEN-DAY                   PIC X(02).        00000025
                  15  PRINT-DATE.                                       00000026
                   20  PRINT-YEAR.                                      00000027
                       25  PRINT-YEAR-CC              PIC X(02).        00000028
                       25  PRINT-YEAR-YY              PIC X(02).        00000029
                   20  PRINT-MONTH                    PIC X(02).        00000030
                   20  PRINT-DAY                      PIC X(02).        00000031
                  15  ADDENDA                         PIC 9(02).        00000032
                  15  NUMBER-BIDS-SENT                PIC 9(04).        00000033
                  15  NUMBER-RESPONSES                PIC 9(04).        00000034
                  15  NUMBER-NO-RESPONSES             PIC 9(04).        00000035
                  15  NUMBER-NO-BIDS                  PIC 9(04).        00000036
                  15  LAST-EVALUATION-DATE.                             00000037
                   20  LAST-EVAL-YEAR.                                  00000038
                       25  LAST-EVAL-YEAR-CC          PIC X(02).        00000039
                       25  LAST-EVAL-YEAR-YY          PIC X(02).        00000040
                   20  LAST-EVAL-MONTH                PIC X(02).        00000041
                   20  LAST-EVAL-DAY                  PIC X(02).        00000042
                  15  LAST-EVALUATION-TIME.                             00000043
                   20  LAST-EVAL-HOUR                 PIC X(02).        00000044
                   20  LAST-EVAL-MINUTE               PIC X(02).        00000045
                   20  LAST-EVAL-SECOND               PIC X(02).        00000046
                  15  LAST-EVALUATOR                  PIC X(02).        00000047
                  15  OPEN-CLOSED-IND                 PIC X(01).        00000048
                  15  SHIP-ADDRESS-CODE               PIC X(03).        00000049
                  15  NUM-OF-BID-LINES                PIC 9(04).        00000050
                  15  XSTATUS-3                       PIC X(03).        00000051
                  15  DESCRIPTION-30                  PIC X(30).        00000052
                  15  REQ-DATE.                                         00000053
                   20  REQ-YEAR.                                        00000054
                       25  REQ-YEAR-CC                PIC X(02).        00000055
                       25  REQ-YEAR-YY                PIC X(02).        00000056
                   20  REQ-MONTH                      PIC X(02).        00000057
                   20  REQ-DAY                        PIC X(02).        00000060
                  15  LABEL-REQUEST-FLAG              PIC X(01).        00000100