示例15 程序包中的静态游标

/*============================================================

                        程序包中的静态游标

  ============================================================*/

--包规范

create or replace package emp_cursorPack is

cursor emp_cur return emp%rowtype; --声明游标规范

procedure emp_pro(no varchar2);

end emp_cursorPack;

--包主体

create or replace package body emp_cursorPack is

       cursor emp_cur return emp%rowtype is select * from emp;  --实现游标主体

       procedure emp_pro(no varchar2) is 

        emp_rec emp%rowtype;

       begin

        open emp_cur;

        LOOP

FETCH emp_cur INTO emp_rec;

EXIT WHEN emp_cur%NOTFOUND;

dbms_output.put_line('返回值是'||emp_rec.empno);

END LOOP;

CLOSE emp_cur;

       end emp_pro;

end emp_cursorPack;

--调用程序包中的存储过程

EXEC emp_cursorPack.emp_pro(7788);