oracle 中 如何编写 包 实现SQL动态查询

Question

请问各位高手在 oracle 中 如何编写 包 实现SQL动态查询,
包 含有 fetch 结果集返回到ref cursor中；
CREATE OR REPLACE package pk_sr
is 
type type_cur is ref cursor; 
PROCEDURE selectrecord(
  Psql in varchar2, --查询语句
  v_cur out type_cur --返回的结果集
 );
end;
/
---包体
CREATE OR REPLACE package body pk_sr is
PROCEDURE selectrecord(
  Psql in varchar2, --查询语句
  v_cur out type_cur --返回的结果集
 )
 Begin
  v_sql := Psql;
  open v_cur for v_sql;  
-----loop
  loop 
   fetch v_cur into --????
exit when cursor%NOTFOUND
  end loop;
-----loop
 End ;
End ;
 /
end;
/
请问loop中应该怎么写呀!

Answer 1

---包体
CREATE OR REPLACE package body pk_sr is
PROCEDURE selectrecord(
  Psql in varchar2, --查询语句
  v_cur out type_cur --返回的结果集
 )
 Begin
  v_sql := Psql;
  open v_cur for v_sql;  
 End ;
End ;
/

Answer 2

多谢 bobfang(匆匆过客) 请问在
  open v_cur for v_sql;  
 可以 fetch 吗？

Answer 3

如果需要将ref cursor做为输出参数返回，open后不能fetch。