Bind Variables in RefCursor

Question

Hi Experts,
CREATE OR REPLACE PROCEDURE CHECK_BIND_VAR(pmCursor IN OUT SYS_REFCURSOR,pmDeptno IN NUMBER,pmOrderBy IN OUT VARCHAR2)
AS
    vSql    VARCHAR2(4000);
BEGIN
    vSql := 'SELECT EMPNO,ENAME,ROW_NUMBER() OVER(:pmOrderBy) FROM EMP WHERE DEPTNO='||pmDeptno;
    OPEN pmCursor FOR vSql USING pmOrderBy;
END CHECK_BIND_VAR;
SET SERVEROUTPUT ON;
DECLARE
    vCursor     SYS_REFCURSOR;
    vDeptNo     NUMBER := 20;
    vEmpno      NUMBER;
    vEname      EMP.ENAME%TYPE;
    vIndex      NUMBER;
    vOrderBy    VARCHAR2(400) := ' ORDER BY DEPTNO ';
BEGIN   
    CHECK_BIND_VAR(vCursor,vDeptNo,vOrderBy);
    LOOP
        FETCH vCursor INTO vEmpno,vEname,vIndex;
        EXIT WHEN vCursor%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE('EMPNO :-'||vEmpno);
        DBMS_OUTPUT.PUT_LINE('ENAME :-'||vEname);
        DBMS_OUTPUT.PUT_LINE('INDEX :-'||vIndex);
    END LOOP;
END;   
Error at line 11
ORA-00907: missing right parenthesis
ORA-06512: at "SCOTT.CHECK_BIND_VAR", line 6
ORA-06512: at line 9What i am doing it wrong...
Thanks,
DharanV

Answer 1

Hi Dharan,
maybe you have a look at the documentation:
http://download.oracle.com/docs/cd/B19306_01/server.102/b14357/ch5.htm#i1211948:
A REFCURSOR bind variable is passed as a parameter to a procedure. The parameter has a REF CURSOR type. First, define the type.
CREATE OR REPLACE PACKAGE EmpPack AS
TYPE EmpInfoTyp IS REF CURSOR;
PROCEDURE EmpInfoRpt (emp_cv IN OUT EmpInfoTyp);
END EmpPack;
Next, create the stored procedure containing an OPEN... FOR SELECT statement.
CREATE OR REPLACE PACKAGE BODY EmpPack AS
PROCEDURE EmpInfoRpt (emp_cv IN OUT EmpInfoTyp) AS
BEGIN
OPEN emp_cv FOR SELECT EMPLOYEE_ID, SALARY
FROM EMP_DETAILS_VIEW
WHERE JOB_ID='SA_MAN' ;
END;
END;
Execute the procedure with a SQL*Plus bind variable as the parameter.
VARIABLE cv REFCURSOR
EXECUTE EmpPack.EmpInfoRpt(:cv)
HTH
Matthias