create or replace procedure 
next_symbol (code in number, d_code out number, f_date out char, t_date out char) as
rid rowid;
begin
	  select min(rowid) into rid from symbol
           where symbol_code>code;
	   select symbol_code, symbol,symbol_desc
	   into d_code,f_date,t_date 
	   from symbol
	   where rowid = rid;
	   exception when no_data_found then
	   null;
end;
/