Item_ptr = Allocate (&_, T_STRUCT, T_PRICE_LIST_ITEM)                  

Item_ptr->< Data.ID
            Data.Price
            Data.Price_WS > = < Item_id
                                Item_price
                                Item_price_{WS} >