Passing string to a cursor as parameter

Question

Hi,
need some help
Version:Oracle Database 10g Enterprise Edition Release 10.2.0.1.0
DECLARE
     lv_dept VARCHAR2(100);
     Currec EMP%ROWTYPE;
     Cursor Cur_Dept(pv_dept VARCHAR2) IS SELECT * FROM EMP WHERE to_char(deptno) IN (pv_dept);
BEGIN
   lv_dept:='''10'''||','||'''20''';
      OPEN Cur_Dept(lv_dept);
   LOOP
        FETCH Cur_Dept INTO Currec;
                 Message(Currec.Ename||Currec.deptno); --Forms code
      EXIT WHEN Cur_Dept%NOTFOUND;     
   END LOOP;
   close Cur_Dept;
END;     
If I pass the parameter as a string , it doesn't work.
Regards,
Lokanath

Answer 1

As others have said, you should avoid using dynamic SQL.
As SQL running in SQL*Plus, something like this...
SQL> ed
Wrote file afiedt.buf
  1  select *
  2  from emp
  3  where deptno in (
  4                  with t as (select '&dept_numbers' as txt from dual)
  5                  select REGEXP_SUBSTR (txt, '[^,]+', 1, level)
  6                  from t
  7                  connect by level <= length(regexp_replace(txt,'[^,]*'))+1
  8*                )
SQL> /
Enter value for dept_numbers: 10,20
old   4:                 with t as (select '&dept_numbers' as txt from dual)
new   4:                 with t as (select '10,20' as txt from dual)
     EMPNO ENAME      JOB              MGR HIREDATE                   SAL       COMM     DEPTNO
      7369 SMITH      CLERK           7902 17/12/1980 00:00:00        800                    20
      7566 JONES      MANAGER         7839 02/04/1981 00:00:00       2975                    20
      7782 CLARK      MANAGER         7839 09/06/1981 00:00:00       2450                    10
      7788 SCOTT      ANALYST         7566 19/04/1987 00:00:00       3000                    20
      7839 KING       PRESIDENT            17/11/1981 00:00:00       5000                    10
      7876 ADAMS      CLERK           7788 23/05/1987 00:00:00       1100                    20
      7902 FORD       ANALYST         7566 03/12/1981 00:00:00       3000                    20
      7934 MILLER     CLERK           7782 23/01/1982 00:00:00       1300                    10
8 rows selected.Or in PL/SQL, based on the same SQL...
SQL> ed
Wrote file afiedt.buf
  1  declare
  2    cursor cur_emps(p_deptnos in varchar2) is
  3      select *
  4      from emp
  5      where deptno in (
  6                       select REGEXP_SUBSTR (p_deptnos, '[^,]+', 1, level)
  7                       from dual
  8                       connect by level <= length(regexp_replace(p_deptnos,'[^,]*'))+1
  9                      );
10  begin
11    for e in cur_emps('10,20')
12    loop
13      dbms_output.put_line(e.empno||' - '||e.ename||' : '||e.deptno);
14    end loop;
15* end;
SQL> /
7369 - SMITH : 20
7566 - JONES : 20
7782 - CLARK : 10
7788 - SCOTT : 20
7839 - KING : 10
7876 - ADAMS : 20
7902 - FORD : 20
7934 - MILLER : 10
PL/SQL procedure successfully completed.
SQL>