oracle中的游标可否作为传入参数？在存储过程中怎么实现？

Question

包头：
create or replace package test is   type  curcompany is ref cursor;  
  function aaa return curcompany;     //已实现输出游标
  procedure bbb(curaaa in curcompany,v_result out varchar);   //输入参数为游标
  
end test;包体: 
 procedure bbb(curaaa in curcompany,v_result out varchar)is 
  v_code varchar(300);
  v_name varchar(300);
  v_rt varchar(5000);
  mycur curcompany;
  rec tcompany%rowtype;
  begin
    mycur := curaaa;
    if mycur%isopen then
      if mycur%found then
      loop
      FETCH  mycur  INTO rec;
      v_code :=rec.companycode;
      v_name :=rec.companyname;
      v_rt := v_rt+';'+v_code+'-'+v_name;
      exit when mycur%notFOUND ;
      end loop;
      close mycur; --
      v_result := v_rt; 
      else
        v_result := 'bottom';
      end if ;
   else
     v_result := 'close';
   end if ;    
  end;  
end test;
在pl/sql里编译通过，在DELPHI里调用时总报ora-1002 fetch out of sequence 错误，不知为什么 ，哪位高手赐教？谢谢

Answer 1

cursor cur_test(p1 varchar2,p2 varchar2) is 
                   select a1,a2 from table_1
                    where a1=p1 
                      and a2=p2;open cur_test('1','2');
loop
  fetch cur_test into v1,v2;
  exit when cur_test%notfound;
   .....
   ......
end loop;
close cur_test;

Answer 2

如果参数是由过程传入的
只需修改open cur_test(ppp,ppp);参数为过程传入的参数.