--創建過程，參數為sys_refcursor，為out型
create or replace procedure aabbsys_refcursor(o out sys_refcursor) is
begin
  open o for select * from basplumain;
end;
---
--測試過程，使用aabbsys_refcursor傳出的值
create or replace procedure aabb_test_sys_refcursor(return out int)is
type t_basplumain is table of basplumain%rowtype;
t_plu t_basplumain;
v sys_refcursor;
begin
  aabbsys_refcursor(v);
  fetch v bulk collect into t_plu;
  for i in 1..t_plu.count loop
    dbms_output.put_line(t_plu(i).pluname);
  end loop;
end;
---
--sqlplus測試腳本
--set serveroutput on
declare
v_return int default 0;
begin
  aabb_test_sys_refcursor(v_return);
end;