怎样通过存储过程返回结果集？

Question

(ROID IN NUMBER, 
outpara OUT NUMBER) 
as 
cou number; 
CURSOR cur IS select count(*) from YY_YDXXB where ROW_ID=ROID   
and deleteflag = -1; 
begin 
OPEN cur; 
FETCH cur INTO cou; 
close cur; 
if cou>0 then 
  outpara:=-1; 
else 
  outpara:=1; 
end if; 
end;

Answer 1

create or replace package pkg_test
as
type my_cursor is ref cursor;
procedure p_test(v_cur out my_cursor);
end;
/
create or replace package body pkg_test
as
procedure p_test(v_cur out my_cursor)
as
begin
open my_cursor for select ... from table;
exception
when others then 
raise;
end;
end;