ee

CREATE OR REPLACE PACKAGE BODY CURSOR_STATE AS
  PROCEDURE open_curs
  AS
  BEGIN
    IF NOT c_emp_dept%ISOPEN THEN
      OPEN c_emp_dept;
    END IF;
  END open_curs;
 
  PROCEDURE fetch_rows(p_number IN NUMBER)
  AS
  BEGIN
    FOR r_emp_dept IN c_emp_dept
    LOOP
      EXIT WHEN c_emp_dept%rowcount < p_number;
      DBMS_OUTPUT.put_line(r_emp_dept.first_name || ' ' || r_emp_dept.last_name || ' ' || r_emp_dept.salary || ' ' || r_emp_dept.name);
    END LOOP;
  END fetch_rows;
 
  PROCEDURE close_curs
  AS
  BEGIN
    IF c_emp_dept%ISOPEN THEN
      CLOSE c_emp_dept;
    END IF;
  END close_curs;
END CURSOR_STATE;