CREATE OR REPLACE PACKAGE PKG_RESULTS AS TYPE T_CURSOR IS REF CURSOR; FUNCTION f_RE_RESULTS RETURN T_CURSOR; END PKG_RESULTS;CREATE OR REPLACE PACKAGE BODY PKG_RESULTS AS FUNCTION f_RE_RESULTS RETURN T_CURSOR IS p_rc t_cursor; BEGIN OPEN p_rc FOR SELECT owner,table_name,tablespace_name FROM Dba_Tables; RETURN p_rc; END f_RE_RESULTS; END PKG_RESULTS;SELECT pkg_results.f_RE_RESULTS FROM dual;用过程返回结果集同上(function->procedure)。
TYPE T_CURSOR IS REF CURSOR;
FUNCTION f_RE_RESULTS RETURN T_CURSOR;
END PKG_RESULTS;CREATE OR REPLACE PACKAGE BODY PKG_RESULTS AS
FUNCTION f_RE_RESULTS RETURN T_CURSOR
IS
p_rc t_cursor;
BEGIN
OPEN p_rc FOR SELECT owner,table_name,tablespace_name FROM Dba_Tables;
RETURN p_rc;
END f_RE_RESULTS;
END PKG_RESULTS;SELECT pkg_results.f_RE_RESULTS FROM dual;用过程返回结果集同上(function->procedure)。