可以使用动态游标,或者直接定义。
create or replace procedure p1(p_num varchar2)
is 
 cursor cur_p_for_select is
  select * from a where apara='||p_num;
begin
 ...
end p1;
------------------
create or replace procedure p1(p_num varchar2)
is 
   TYPE c_curtype IS REF CURSOR;
   cur_p_for_select c_curtype;
begin
   ...
   open cur_p_for_select  for 
        select select * from a where apara='||p_num;
   ...
end p1;