ORACLE之PACKAGE-游标变量

刚学pl/sql编程，写了两个package。pkg_temp_fn31和pkg_temp_fn32。内容涉及pl/sql基本语法，游标变量，存储过程（in,out）。

　　pkg_temp_fn31调用pkg_temp_fn32，pkg_temp_fn32中定义了out游标变量。

• pkg_temp_fn31内有一个procedure test(p_mapid number)

　　创建包规范

 create or replace package pkg_temp_fn31 is
   --25-03-2016
   procedure test(p_mapid number);
 end pkg_temp_fn31;
 --exec pkg_temp_fn31(&p_mapid);执行此包

　　创建包规范

create or replace package body pkg_temp_fn31
is
 procedure test(p_mapid number) is
  p_cursor pkg_temp_fn32.ref_cursor;--
  p_personno t_fn_person.person_code%type;
  p_personname t_fn_person.person_name%type;
  begin
    pkg_temp_fn32.queryall(p_mapid,p_cursor);--
    loop
      fetch p_cursor into p_personno,p_personname;
      exit when p_cursor%notfound;
      dbms_output.put_line(p_personno||'''s person name is '||p_personname);
    end loop;
  end test;
end pkg_temp_fn31;

• kg_temp_fn2内有一个procedure queryall(pmap_id number ,p_cursor out ref_cursor)

　　创建包规范　　

 create or replace package pkg_temp_fn32 is
 --25/03/2016
   type ref_cursor is ref cursor;--
   procedure queryall(pmap_id number ,p_cursor out ref_cursor);
 end pkg_temp_fn32;

　　创建包规范

create or replace package body pkg_temp_fn32 is
procedure queryall(pmap_id number ,p_cursor out ref_cursor)
  is
  RF pkg_temp_fn32.ref_cursor;
  begin
    open RF for
      select x.person_code,x.person_name from t_fn_person x
               where x.map_id=pmap_id;
    p_cursor:=RF;
  end queryall;
end pkg_temp_fn32;

执行结果：