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;

 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;