1,首先创建自定义包，其中包含游标变量的声明

CREATE OR REPLACE package POLICE.pkg_package

as

type type_cursor is ref cursor;

end;

2，存储过程的使用

CREATE OR REPLACE procedure POLICE.DangXmList(lx in varchar2,begin1 date,end1 date,num varchar2,type1 varchar2,name1 varchar2, cur_arg out pkg_package.type_cursor )

is

mysql varchar2(1000);

begin

mysql:=select distinct * from v_p_dang_all where 1=1 ;

if lx<> then

mysql:=mysql || and ALLKIND= || lx ||;

end if;

if begin1<> then

mysql:=mysql || and INSERT_TIME= || begin1 ||;

end if;

if begin1<> then

mysql:=mysql || and INSERT_TIME= || end1 || ;

end if;

if type1=xm then

mysql:=mysql || and xm= || name1 || ;

else

mysql:=mysql || and id_code= || name1 || ;

end if;

open cur_arg for mysql ;

end;