Ref Curosrs in Oracle 8i

Question

Hi,
Am currently using the Oracle 8i, i have return ref cursors in oracle 10g.. which is working fine.. but when am trying to use the same in Oracle 8i... am facing lot of problems.. could some one help me on this.. Please.
Oracle 10g:
CREATE OR REPLACE PROCEDURE emp_by_dept (
p_deptno emp.deptno%TYPE
IS
emp_refcur SYS_REFCURSOR;
X emp%ROWTYPE;
BEGIN
OPEN emp_refcur FOR SELECT empno, ename FROM emp WHERE deptno = p_deptno;
DBMS_OUTPUT.PUT_LINE('EMPNO ENAME');
DBMS_OUTPUT.PUT_LINE('----- -------');
LOOP
FETCH emp_refcur INTO X;
EXIT WHEN emp_refcur%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(X.EMPNO || ' ' || X.ENAME);
END LOOP;
CLOSE emp_refcur;
END;
Where as 8i Is not working.. i just found that.. we can not do it in 8i using sys refcursor... could some one help me .. little urgent..

Answer 1

SQL> CREATE OR REPLACE PROCEDURE emp_by_dept (
  2  p_deptno emp.deptno%TYPE
  3  )
  4  IS
  5  TYPE ref_cursor IS REF CURSOR;
  6  emp_refcur ref_cursor;
  7  X emp%ROWTYPE;
  8  BEGIN
  9  OPEN emp_refcur FOR SELECT * FROM emp WHERE deptno = p_deptno;
10  DBMS_OUTPUT.PUT_LINE('EMPNO ENAME');
11  DBMS_OUTPUT.PUT_LINE('----- -------');
12  LOOP
13  FETCH emp_refcur INTO X;
14  EXIT WHEN emp_refcur%NOTFOUND;
15  DBMS_OUTPUT.PUT_LINE(X.EMPNO || ' ' || X.ENAME);
16  END LOOP;
17  CLOSE emp_refcur;
18  END;
19  /
Procedure created.
SQL> EXECUTE emp_by_dept(20);
EMPNO ENAME
7369 SMITH
7566 JONES
7788 SCOTT
7876 ADAMS
7902 FORD
7941 ABCDEFGHIJKLMNOPQRSTUVWXYZAAAAAA
100 %Saubhik%
PL/SQL procedure successfully completed.