返回一个数据表的集合

CREATE OR REPLACE PACKAGE PAG_SelectTable
IS
TYPE SELECT_TABLE IS REF CURSOR;
END PAG_SelectTable;

CREATE OR REPLACE PROCEDURE PRO_SELECTTABLE
(
       TableName IN VARCHAR2,
       ORF OUT PAG_SELECTTABLE.SELECT_TABLE
)
IS
CURSOR CONTEXT_KEY IS
       SELECT Table_Name FROM USER_ALL_TABLES WHERE Table_Name = TableName;
CURSOR_CONTEST USER_ALL_TABLES.TABLE_NAME%TYPE;

BEGIN
     OPEN CONTEXT_KEY;
     FETCH CONTEXT_KEY INTO CURSOR_CONTEST;
     WHILE CONTEXT_KEY %FOUND LOOP
     BEGIN
     OPEN ORF FOR ' SELECT * FROM ' || CURSOR_CONTEST;
     END;
     FETCH CONTEXT_KEY INTO CURSOR_CONTEST;
     END LOOP;
     CLOSE CONTEXT_KEY;
END PRO_SELECTTABLE;