CREATE OR REPLACE PACKAGE pkg_test AS TYPE myrctype IS REF CURSOR; PROCEDURE get (strsql varchar2(500), p_rc OUT myrctype); END pkg_test; CREATE OR REPLACE PACKAGE BODY pkg_test AS PROCEDURE get (strsql varchar2(500), p_rc OUT myrctype) IS BEGIN OPEN p_rc FOR sqlstr; END get; END pkg_test; /
create package test_age as type mycursor is ref cursor; end; / create procedure pro(p_str in varchar2,p_rc out test_age.mycursor) as begin open p_rc for p_str; end; /
AS
TYPE myrctype IS REF CURSOR; PROCEDURE get (strsql varchar2(500), p_rc OUT myrctype);
END pkg_test;
CREATE OR REPLACE PACKAGE BODY pkg_test
AS
PROCEDURE get (strsql varchar2(500), p_rc OUT myrctype)
IS
BEGIN
OPEN p_rc FOR sqlstr;
END get;
END pkg_test;
/
as
type mycursor is ref cursor;
end;
/
create procedure pro(p_str in varchar2,p_rc out test_age.mycursor)
as
begin
open p_rc for p_str;
end;
/