测试返回CURSOR

--*********************************************************************************
--功能说明：
--    测试返回CURSOR
--参数说明：
--    p_year  年份
--    p_online_date  项目上线时间
--创建说明：创建者  创建日期
--          xxx  2011-09-09
--修改历史：修改者  修改日期  修改原因(简要说明)
--          暂无    暂无      暂无
--*********************************************************************************
procedure returncursor(p_year          varchar2          , 
                       p_cursor1  out  sys_refcursor     , 
p_cursor2  out  sys_refcursor
)
is


begin


  open p_cursor1 for              --ye：打开游标
    select * from public_series;

  open p_cursor2 for  
    select * from it_high_service where year = p_year ;


end returncursor;


--*********************************************************************************
--功能说明：
--    测试 调用 返回CURSOR
--参数说明：
--    p_year  年份
--    p_online_date  项目上线时间
--创建说明：创建者  创建日期
--          xxx  2011-09-09
--修改历史：修改者  修改日期  修改原因(简要说明)
--          暂无    暂无      暂无
--*********************************************************************************
procedure proc_test_cursor(p_year          varchar2          , 
p_str      out  varchar2
)
is
  v_outrefcursor1   sys_refcursor;
v_outrefcursor2   sys_refcursor;
v_public_series   public_series%rowtype;
v_str             varchar2(4000);
begin
  
  --调用过程
plangroupcde.test_zhi_pkg.returncursor(p_year, v_outrefcursor1, v_outrefcursor2);

loop fetch v_outrefcursor1
     into v_public_series;
exit when v_outrefcursor1%notfound;
 
v_str := v_str || v_public_series.series_name || ',';
 
end loop;

close v_outrefcursor1;       --ye：关闭游标

v_str := substr(v_str, 1, length(v_str) - 1);

p_str := v_str;

end proc_test_cursor;