03 BIDR-INPUT-SCREEN                  REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  BIDR-KEY-FIELDS.                                   00000003
                  15  BID-ID.                                           00000004
                   20  BID-NUMBER                     PIC X(10).        00000005
                   20  BID-SUFFIX                     PIC X(01).        00000006
                  15  VENDOR-CODE.                                      00000007
                   20  VENDOR-NUMBER                  PIC X(10).        00000008
                   20  VENDOR-ADDR-IND                PIC X(01).        00000009
                 10  BIDR-RESULT-FIELDS.                                00000010
                  15  FOB-POINT                       PIC X(01).        00000011
                  15  RESPONSE-DATE.                                    00000012
                   20  RESPONSE-YEAR.                                   00000013
                       25  RESPONSE-YEAR-CC           PIC X(02).        00000014
                       25  RESPONSE-YEAR-YY           PIC X(02).        00000015
                   20  RESPONSE-MONTH                 PIC X(02).        00000016
                   20  RESPONSE-DAY                   PIC X(02).        00000017
                  15  QUOTATION-BY                    PIC X(20).        00000018
                  15  QUOTATION-NUMBER                PIC X(20).        00000019
                  15  DELIVERY-DATE.                                    00000020
                   20  DELIVERY-YEAR.                                   00000021
                       25  DELIVERY-YEAR-CC           PIC X(02).        00000022
                       25  DELIVERY-YEAR-YY           PIC X(02).        00000023
                   20  DELIVERY-MONTH                 PIC X(02).        00000024
                   20  DELIVERY-DAY                   PIC X(02).        00000025
                  15  ACTUAL-BID                      PIC S9(14).       00000026
                  15  COMMENTS-30                     PIC X(30).        00000027
                  15  LOW-BID-INDICATOR               PIC X(01).        00000028
                  15  TERMS                           PIC X(12).        00000029
                  15  NO-BID-INDICATOR                PIC X(01).        00000030
                  15  DISCOUNT-9                      PIC S9(6)V99.     00000031
                  15  BID-RESP-TEXT                   PIC X(01).        00000032
                  15  WHOLE-BID                       PIC X(01).        00000033
                  15  BT-IND-FLAG                     PIC X(01).        00000034
                  15  NO-RESPONSE-IND                 PIC X(01).        00000035
                  15  NUM-OF-RESPONSES                PIC 9(04).        00000036
                 10  BIDR-INFERRED-FIELDS.                              00000040
                  15  VENDOR-NAME                     PIC X(30).        00000100