accept p_price prompt 'What is the price '
Variable g_inv_value number
DECLARE
  v_inv_value  number(8,2);
  v_price	     number(8,2);
  v_quantity	number(8,0)  :=  400;
BEGIN
        v_price := &p_price;
	:g_inv_value := v_price * v_quantity;
END;
/
Print g_inv_value
/