这个存储过程怎样调用？

[刘大黑]

CREATE OR REPLACE PACKAGE pkg_test
AS
TYPE myrctype IS REF CURSOR;

PROCEDURE get (p_id NUMBER, p_rc OUT myrctype);
END pkg_test;
/

CREATE OR REPLACE PACKAGE BODY "PKG_TEST"
AS
PROCEDURE get (p_id NUMBER, p_rc OUT myrctype)
IS
sqlstr VARCHAR2 (500);
BEGIN
IF p_id = 0
THEN
sqlstr := 'SELECT * FROM CBS_SALE_PROD ';
OPEN p_rc FOR sqlstr;

ELSE
sqlstr := 'select * FROM CBS_SALE_PROD WHERE CBS_prod_id=:wid ';
OPEN p_rc FOR sqlstr USING p_id;
END IF;
END get;
END pkg_test;
/


我的调用过程如下
declare myrctype IS REF CURSOR;
begin
pkg_test.get(1,myrctype output);
end;

不知道在其他过程或者前台程序如何调用，请高手指点

[jiezhi]

in sqlplus:
exec pkg_test.get(1,myrctype output);
前端調用就看你是什么語言了。

[beckhambobo]

declare
v_rc pkg_test.myrctype;
v1 CBS_SALE_PROD.col1%type;
v2 CBS_SALE_PROD.col2%type;
....
begin
pkg_test.get(1,v_rc);
loop
fetch v_rc into v1,v2,...;
exit when v_rc%notfound;
dbms_output.put_line(v1||v2||....);
end loop;
end;
/