CONNECT SCOTT/TIGER

CREATE OR REPLACE PACKAGE emp_demo_pkg AS
    TYPE emp_cur_type IS REF CURSOR RETURN emp%ROWTYPE;
    PROCEDURE open_cur (
        cursor   IN OUT emp_cur_type,
        dept_num IN     number);
END emp_demo_pkg;
/  
  
CREATE OR REPLACE PACKAGE BODY emp_demo_pkg AS
    PROCEDURE open_cur (
        cursor   IN OUT emp_cur_type, 
 	dept_num IN     number) IS
    BEGIN 
        OPEN cursor FOR 
	    SELECT * FROM emp
	    WHERE deptno = dept_num
	    ORDER BY ename ASC;
	END;
END emp_demo_pkg;
/

EXIT;
