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

[koujm]

请问各位高手在 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中应该怎么写呀!

[bobfang]

---包体
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 ;
/

[koujm]

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

[bobfang]

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

[koujm]

多谢！