【存储过程】利用包构建存储过程和存储函数的案例（转）

存储过程：  包  create or replace package emppackage is    -- Author  : ADMINISTRATOR    -- Created : 2012-3-22 14:02:43    -- Purpose : 声明一个存储过程     -- Public type declarations    type empcursor is ref cursor;    -- Public function and procedure declarations    --声明一个存储过程    procedure selectEmps(emplist out empcursor);  end emppackage;  包体  create or replace package body emppackage is    -- Function and procedure implementations    procedure selectEmps(emplist out empcursor) is    begin      open emplist for select * from emp;    end;  end emppackage;  在命令窗口中调用：  declare  empc1 emppackage.empcursor;  emp_row emp%rowtype;  begin  emppackage.selectEmps(empc1);  loop  fetch empc1 into emp_row;  exit when empc1%notfound;  dbms_output.put_line(emp_row.empno);  end loop;  close empc1;  end;  结果：  2345  7369  7499  7521  存储函数：  包：  create or replace package mypackage is    -- Author  : ADMINISTRATOR    -- Created : 2012-3-22 14:06:47    -- Purpose : 存储函数      -- Public type declarations    type empc1 is ref cursor;     function queryEmps return empc1;  end mypackage;  包体：  create or replace package body mypackage is  function queryEmps return empc1 is    emp_c1 empc1;    begin      open emp_c1 for select * from emp;      return emp_c1;      end;    end mypackage;  在命令窗口中调用：   declare  emp_c1 mypackage.empc1;  emp_row  emp%rowtype;  begin  emp_c1:=mypackage.queryEmps;  loop   fetch emp_c1 into emp_row;  exit when emp_c1%notfound;  dbms_output.put_line(emp_row.empno);  end loop;  close emp_c1;  end;  结果：  2345  7369  7499  7521