create or replace procedure 
retrieve_symbol (code in number, d_code out number, f_date out char, t_date out char) as
begin
   select symbol_code,symbol,symbol_desc 
   into d_code,f_date,t_date 
   from symbol 
   where symbol_code = code;
   exception when no_data_found then
   raise_application_error(-2001,'sorry no record found');
end;
/