写到一个包中:
create or replace package pag_cs_power as type c_Type is ref cursor;
FUNCTION FUN_CS_GETDICTLIST(
v_DictIndex in varchar2) return c_Type;end pag_cs_power;存储过程代码:FUNCTION FUN_CS_GETDICTLIST(
v_DictIndex in varchar2) return c_Type
as
c_cursor c_Type;
begin
open c_cursor for
select DICTID,DICTNAME FROM SYS_DICT WHERE DICTINDEX = v_DictIndex;
return c_cursor;
end FUN_CS_GETDICTLIST;
create or replace package pag_cs_power as type c_Type is ref cursor;
FUNCTION FUN_CS_GETDICTLIST(
v_DictIndex in varchar2) return c_Type;end pag_cs_power;存储过程代码:FUNCTION FUN_CS_GETDICTLIST(
v_DictIndex in varchar2) return c_Type
as
c_cursor c_Type;
begin
open c_cursor for
select DICTID,DICTNAME FROM SYS_DICT WHERE DICTINDEX = v_DictIndex;
return c_cursor;
end FUN_CS_GETDICTLIST;
execute pag_cs_power
啊?但是报错呢!
能再具体点吗
AS
TYPE c_TYPE IS REF CURSOR;
PROCEDURE P_CUR_TEST(p_CUR IN OUT c_TYPE);
END PAG_CUR_TEST;CREATE OR REPLACE PACKAGE BODY PAG_CUR_TEST
(
CREATE OR REPLACE PACKAGE PAG_CUR_TEST
AS
TYPE c_TYPE IS REF CURSOR;
PROCEDURE P_CUR_TEST(p_CUR IN OUT c_TYPE);
END PAG_CUR_TEST;CREATE OR REPLACE PACKAGE BODY PAG_CUR_TEST
AS PROCEDURE P_CUR_TEST(p_CUR IN OUT c_TYPE)
AS
BEGIN
OPEN c_TYPE FOR SELECT * FROM TABLE_NAME;
END P_CUR_TEST;
END PAG_CUR_TEST;