Passing in values to a cursor in a package procedure

Question

Hi all
I have a package :- test
i have a procedure in the package :- test_proc
in the procedure i have a cursor
which has a select statement
select jobid,jobname from jobs
where jobcode = p_job_code; -- i think this is wrong
when i execute the package i pass the job code to the package as a parameter which i use in the cursor above
as a parameter i have values(i can select any of the above values )
job code :-
10
20
10,20
how can i pass the values to the cursor in the procedure
it is giving me invaiid number;

Answer 1

Dear abcdxyz!
As already stated you should try this with dynamic SQL. Here is an example for you:
CREATE OR REPLACE PROCEDURE job_cursor(p_job_code VARCHAR2)
IS
  l_jobid      NUMBER(5);
  l_jobname    VARCHAR2(30);
  c_job_cursor INTEGER;
  l_ignore     INTEGER;
BEGIN
  -- open cursor on source table
  c_job_cursor := DBMS_SQL.Open_Cursor;
  -- parse the SELECT statement
  DBMS_SQL.parse(c_job_cursor, 'SELECT jobid, jobname FROM job WHERE job_code IN (' || p_job_code || ')', DBMS_SQL.NATIVE);
  -- define the column type
  DBMS_SQL.Define_Column(c_job_cursor, 1, l_jobid);
  DBMS_SQL.Define_Column(c_job_cursor, 2, l_jobname, 30);
  ignore := DBMS_SQL.Execute(c_job_cursor);
  LOOP
  -- Fetch a row from the source table
    IF DBMS_SQL.Fetch_Rows(c_job_cursor) > 0 THEN
        -- get column values of the row
        DBMS_SQL.Column_Value(c_job_cursor, 1, l_jobid);
        DBMS_SQL.Column_Value(c_job_cursor, 2, l_jobname);
    ELSE
       -- No more rows to copy
      EXIT;
    END IF;
  END LOOP;
  DBMS_OUTPUT.PUT_LINE(l_jobid || ', ' || l_jobname);
  DBMS_SQL.Close_Cursor(c_job_cursor);
EXCEPTION
  WHEN OTHERS THEN
    IF DBMS_SQL.Is_Open(c_job_cursor) THEN
      DBMS_SQL.Close_Cursor(c_job_cursor);
    END IF;
    RAISE;
END;
/Yours sincerely
Florian W.
P.S. I haven't tested this procedure.