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} >