SQL> set linesize 150;
SQL> set wrap off;
SQL> column ename format a20;
SQL>
SQL> var r refcursor;
SQL> exec p_test(:r);
PL/SQL 过程已成功完成。
SQL> print r;
EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO
---------- -------------------- --------- ---------- -------------- ---------- ---------- ----------
7369 SMITH CLERK 7902 17-12月-80 800 20
7499 ALLEN SALESMAN 7698 20-2月 -81 1600 300 30
已选择2行。
如果结果集太多,好像还需要设置exec dbms_output.enable(1000000)
第二种方法:
declare
p_results sys_refcursor;
v_value1 varchar2(3000);
v_value2 varchar2(3000);
v_value3 varchar2(3000);
v_value4 varchar2(3000);
v_result varchar2(10000);
begin
-- Call the procedure
p_get_result('2009-08-05', p_results);
fetch p_results into v_value1,v_value2,v_value3,v_value4;
while p_results%found
loop
v_result := v_value1||' '||v_value2||' '||v_value3||' '||v_value4;
dbms_output.put_line(v_result);
fetch p_results into v_value1,v_value2,v_value3,v_value4;
end loop;
close p_results;
end;