1.建立测试表：
create table AAA
(
aa NVARCHAR2(100),
bb NVARCHAR2(100),
cc NVARCHAR2(100),
dd NVARCHAR2(100)
)
并导入测试数据insert into aaa values(‘1‘,‘1‘,‘1‘,‘1‘);
2.测试可行性：
DECLARE
v_cursor NUMBER;
v_stat NUMBER;
aa VARCHAR(100);
bb VARCHAR(100);
cc VARCHAR(100);
dd VARCHAR(100);
v_sql VARCHAR(200);
BEGIN
v_sql :=‘select * from aaa‘;
v_cursor := dbms_sql.open_cursor; --打开游标；
dbms_sql.parse(v_cursor, v_sql, dbms_sql.native); --解析动态SQL语句；
dbms_sql.define_column(v_cursor, 1, aa,100); --定义列
dbms_sql.define_column(v_cursor, 2,bb, 100);
dbms_sql.define_column(v_cursor, 3,cc,100);
dbms_sql.define_column(v_cursor, 4, dd,100);
v_stat := dbms_sql.execute(v_cursor); --执行动态SQL语句。
LOOP
EXIT WHEN dbms_sql.fetch_rows(v_cursor)<=0; --fetch_rows在结果集中移动游标，如果未抵达末尾，返回1。
dbms_sql.column_value(v_cursor, 1, aa); --将当前行的查询结果写入上面定义的列中。
dbms_sql.column_value(v_cursor, 2, bb);
dbms_sql.column_value(v_cursor, 3,cc);
dbms_sql.column_value(v_cursor, 4, dd);
dbms_output.put_line(aa || ‘;‘ || bb || ‘;‘ || cc || ‘;‘|| dd);
END LOOP;
dbms_sql.close_cursor(v_cursor); --关闭游标。
END;
输出1,1,1,1
3.建立存储过程，其中，sql为输入参数，系统引用游标为输出参数，如下：
create or replace procedure myproc
(
mysqlval in varchar2,
rescur out sys_refcursor
)
as
BEGIN
open rescur for mysqlval;
END;
4.测试存储过程
sqlplus中，执行如下：
var r refcursor;
exec proc2(‘select * from aaa‘,:r);
print r;
输出是正常的