Problem in ref cursor output..plz suggest changes

Question

SQL> select * from department;
    DEPTNO ENAME
     7124284 SINGH
SQL> CREATE OR REPLACE PACKAGE l_ref_cursor
  2  AS
  3  TYPE rc IS REF CURSOR;
  4  END;
  5  /
Package created.
SQL> CREATE OR REPLACE PROCEDURE P_RET_REF_CURSOR(in_deptno IN NUMBER,lrc OUT l_ref_cursor.rc)
  2  AS
  3  BEGIN
  4  OPEN lrc FOR 'SELECT * FROM DEPARTMENT WHERE DEPTNO='||in_deptno;
  5  END;
  6  /
Procedure created.
SQL> DECLARE
  2  TYPE DEPT_REF_CURSOR IS REF CURSOR RETURN DEPARTMENT%ROWTYPE;
  3  C1 DEPT_REF_CURSOR;
  4  R_C1 C1%ROWTYPE;
  5  BEGIN
  6  EXECUTE IMMEDIATE 'BEGIN P_RET_REF_CURSOR(:A,:C); END;'
  7  USING IN 7123864,
  8  OUT C1;
  9  LOOP
10  FETCH C1 INTO R_C1;
11  EXIT WHEN C1%NOTFOUND;
12  DBMS_OUTPUT.PUT_LINE(R_C1.ENAME);
13  END LOOP;
14  END;
15  /
DECLARE
ERROR at line 1:
ORA-03113: end-of-file on communication channelCould some one correct me, and also elucidate on what's wrong in my piece of code?
Thanks,
Bhagat

Answer 1

The worse part is that it happens in 9.2.0.5.0 even..
SQL> select * from v$version;
BANNER
Oracle9i Enterprise Edition Release 9.2.0.7.0 - 64bit Production
PL/SQL Release 9.2.0.7.0 - Production
CORE    9.2.0.7.0       Production
TNS for Linux: Version 9.2.0.7.0 - Production
NLSRTL Version 9.2.0.7.0 - Production
SQL> select * from department;
    DEPTNO ENAME
   7124284 SINGH
SQL> CREATE OR REPLACE PACKAGE l_ref_cursor 
  2  AS 
  3   TYPE rc IS REF CURSOR; 
  4  END;
  5  /
Package created.
SQL> CREATE OR REPLACE PROCEDURE P_RET_REF_CURSOR(in_deptno IN NUMBER,lrc OUT l_ref_cursor.rc)  
  2  AS 
  3  BEGIN 
  4   OPEN lrc FOR 'SELECT * FROM DEPARTMENT WHERE DEPTNO= :1' USING in_deptno; 
  5  END; 
  6  /
Procedure created.
SQL> DECLARE 
  2 
  3  TYPE DEPT_REF_CURSOR IS REF CURSOR RETURN DEPARTMENT%ROWTYPE; 
  4 
  5  C1 DEPT_REF_CURSOR; 
  6  R_C1 C1%ROWTYPE; 
  7  BEGIN 
  8 
  9  EXECUTE IMMEDIATE 'BEGIN P_RET_REF_CURSOR(:A,:C); END;'  USING IN 10, OUT C1; 
10 
11  LOOP FETCH C1 INTO R_C1;
12  EXIT WHEN C1%NOTFOUND;
13  DBMS_OUTPUT.PUT_LINE(R_C1.ENAME);
14  END LOOP;
15  END;
16  /
ERROR:
ORA-03114: not connected to ORACLE
DECLARE
ERROR at line 1:
ORA-03113: end-of-file on communication channelAt the same time
SQL> DECLARE
  2   C1 l_ref_cursor.rc;
  3   R_C1 DEPARTMENT%ROWTYPE;
  4  BEGIN
  5    P_RET_REF_CURSOR(7124284,C1);
  6    LOOP
  7     FETCH C1 INTO R_C1;
  8     EXIT WHEN C1%NOTFOUND;
  9     DBMS_OUTPUT.PUT_LINE(R_C1.ENAME);
10    END LOOP;
11  end;
12  /
SINGH
PL/SQL procedure successfully completed.Rgds.