03 PABB-PA-CREATION-BY-BID            REDEFINES MTIOAREA.     00000001
              05  DOCH-IOAREA.                                          00000002
                 10  PABB-HEADER-KEY-FIELDS.                            00000003
                  15  BID-ID.                                           00000004
                   20  BID-NUMBER                     PIC X(10).        00000005
                   20  BID-SUFFIX                     PIC X(01).        00000006
                 10  PABB-HEADER-INFERRED-FIELDS.                       00000007
                  15  LOW-BID-TOTAL                   PIC S9(14).       00000008
                  15  LOW-UNIT-TOTAL                  PIC S9(14).       00000009
                 10  PABB-HEADER-FIELDS-NOT-ON-TABL.                    00000010
                  15  PA-NUMBER                       PIC X(11).        00000011
                  15  SELECT-LOW-FLAG                 PIC X(01).        00000012
            05  DOCD-IOAREA.                                            00000013
                 10  PABB-LINE-KEY-FIELDS.                              00000014
                  15  BID-LINE-NUMBER                 PIC X(03).        00000015
                 10  PABB-RESULT-FIELDS.                                00000016
                  15  RX-ID.                                            00000017
                   20  TRANS-CODE                     PIC X(02).        00000018
                   20  RX-NUMBER.                                       00000019
                    25  RX-NUMBER-AGENCY              PIC X(03).        00000020
                    25  RX-NUMBER-NUMBER              PIC X(11).        00000021
                   20  RX-LINE-NUM                    PIC X(03).        00000022
                  15  RX-DATE.                                          00000023
                   20  RX-YEAR.                                         00000024
                       25  RX-YEAR-CC                 PIC X(02).        00000025
                       25  RX-YEAR-YY                 PIC X(02).        00000026
                   20  RX-MONTH                       PIC X(02).        00000027
                   20  RX-DAY                         PIC X(02).        00000028
                  15  COMMODITY-CODE                  PIC X(14).        00000029
                  15  PC-ID.                                            00000030
                   20  PC-TRANS-CODE                  PIC X(02).        00000031
                   20  PC-NUMBER.                                       00000032
                    25  PC-NUMBER-AGENCY              PIC X(03).        00000033
                    25  PC-NUMBER-NUMBER              PIC X(11).        00000034
                   20  PC-LINE-NUM                    PIC X(03).        00000035
                  15  PC-DATE.                                          00000036
                   20  PC-YEAR.                                         00000037
                       25  PC-YEAR-CC                 PIC X(02).        00000038
                       25  PC-YEAR-YY                 PIC X(02).        00000039
                   20  PC-MONTH                       PIC X(02).        00000040
                   20  PC-DAY                         PIC X(02).        00000041
                  15  PC-LINE-AMOUNT                  PIC S9(14).       00000042
                  15  NUMBER-RESPONSES                PIC 9(04).        00000043
                  15  NUMBER-NO-BIDS                  PIC 9(04).        00000044
                  15  AWARD-VENDOR                    PIC X(11).        00000045
                  15  AWARD-DATE.                                       00000046
                   20  AWARD-YEAR.                                      00000047
                       25  AWARD-YEAR-CC              PIC X(02).        00000048
                       25  AWARD-YEAR-YY              PIC X(02).        00000049
                   20  AWARD-MONTH                    PIC X(02).        00000050
                   20  AWARD-DAY                      PIC X(02).        00000051
                  15  AWARD-AMOUNT                    PIC S9(14).       00000052
                  15  LOW-BID-DOLLAR-AMT              PIC S9(14).       00000053
                  15  LOW-BIDDER-DOLLAR               PIC X(11).        00000054
                  15  LOW-BID-DOLL-ALT-NUM            PIC X(02).        00000055
                  15  LOW-BID-UNIT-AMT                PIC S9(14).       00000056
                  15  LOW-BIDDER-UNIT                 PIC X(11).        00000057
                  15  LOW-BID-UNIT-ALT-NUM            PIC X(02).        00000058
                  15  NUMBER-OF-TABLE-HITS            PIC 9(03).        00000059
                  15  TEXT-FLAG                       PIC X(01).        00000060
                  15  NUMBER-NO-RESPONSES             PIC 9(04).        00000061
                  15  QUANTITY-X                      PIC X(12).        00000062
                  15  UNIT-COST-X                     PIC X(14).        00000063
                  15  UNIT-OF-MEASURE                 PIC X(04).        00000064
                  15  COMM-DESCRIPTION                PIC X(60).        00000065
                 10  PABB-LINE-FIELDS-NOT-ON-TABLE.                     00000070
                  15  LINE-SELECT                     PIC X(01).        00000100