在包中使用游标变量

--创建包规范
CREATE OR REPLACE PACKAGE emp_data_action AS
    TYPE emp_type IS REF CURSOR RETURN emp%ROWTYPE;--定义强类型游标类型
    --定义使游标变量的子程序
    PROCEDURE getempbydeptno (emp_cur IN OUT emp_type,p_depotno NUMBER);
END emp_data_action;

--实现包体
CREATE OR REPLACE PACKAGE BODY emp_data_action AS
--创建在包规范中定义的过程
PROCEDURE getempbydeptno(emp_cur IN OUT emp_type,p_deptno NUMBER) IS
    emp_row emp%ROWTYPE;
    BEGIN
        OPEN emp_cur FOR SELECT * FROM emp WHERE deptno = p_deptno  --打开游标变量
        LOOP
            FETCH emp_cur INTO emp_row;                             --提取数据
            EXIT WHEN emp_cur%NOTFOUND;
            --输出游标数据
            DBMS_OUTPUT.put_line('员工名称：'||emp_row.ename||'部门编号：'||emp_row.deptno);
        END LOOP
        CLOSE emp_cur;
    END;
END;
END emp_data_action;

编译包时需要先对包规范进行编译，只有包规范编译通过后才能编译包体，在成功编译包后，可以用如下代码调用包中的过程；

DECLARE
    emp_cursors       emp_data_action.emp_type;--定义在包中定义的游标类型
BEGIN
    emp_data_action.getempbydeptno(emp_cursors,20);--调用在包中定义的过程
END;