送分大家来玩玩一个 存储过程返回结果集的的性能问题（sqlplus环境下，其他环境也可以）

Question

--利用9i出来的sys_refcursor
create or REPLACE PROCEDURE proc_get(p_rc out sys_refcursor) as 
BEGIN
open p_rc for select table_name,tablespace_name,status from user_table_t;
END;
/VARIABLE p_rc refcursor;
EXEC proc_get(:p_rc);
print;--9i之前是要定义游标变量的
CREATE OR REPLACE PACKAGE pkg_test
AS
    TYPE myrctype IS REF CURSOR; 
    PROCEDURE get (p_rc OUT myrctype);
END pkg_test;
/
CREATE OR REPLACE PACKAGE BODY pkg_test
AS
    PROCEDURE get (p_rc OUT myrctype)
    IS
       sqlstr   VARCHAR2 (500);
    BEGIN
          OPEN p_rc FOR
            select table_name,tablespace_name,status from user_table_t;
    END get;
END pkg_test;
/VARIABLE p_rc refcursor;
exec pkg_test.get(:p_rc);
print p_rc;=================〉
如果能够有效率更高的，我加分送。

Answer 1

conn aos/aos@orcl
set serveroutput on
declare
type mytable is table of user_table_t%rowtype;
l_data mytable;
l_refc sys_refcursor;
BEGIN
open l_refc for select table_name,tablespace_name,status from user_table_t;
fetch l_refc BULK COLLECT into l_data;
CLOSE l_refc;
FOR i IN 1 .. l_data.COUNT
LOOP
DBMS_OUTPUT.put_line ( l_data (i).table_name||'`s TABLESPACE is '||l_data(i).tablespace_name);
END LOOP;
END;
/
---
这个方法就不用测试了，效率显然没我的好。
赫赫

Answer 2

VARIABLE p_rc refcursor;
exec pkg_test.get(:p_rc);
print p_rc; 这一段，我没有在9i以前的版本中测试过，可能有点问题。
麻烦使用之前版本的朋友测试下，最好能将可行的语法贡献出来，小弟在这里先谢谢了。