Calling the package having cursor type and record type variables

Question

Hi ,
I tried the following pacakge ,which is similar to my requriement ,the package got created succesfully, while calling it is giving me the error, Wrong no.of arguments
CREATE OR REPLACE PACKAGE Pkg_test1
IS
  ----- Record Variable ----
  TYPE rec_job IS RECORD
   ( job varchar2(50),
     ename varchar2(50),
     sal number
  TYPE typ_job IS TABLE OF rec_job;
  -- cursor declaration
  cursor emp_cur is select empno from  emp;
  TYPE emp_ttyp IS TABLE OF emp_cur%ROWTYPE INDEX BY PLS_INTEGER;
  ---- Procedure Declaration ----
PROCEDURE proc_job ( p_cur IN   emp_ttyp,
                     o_Rat     OUT  typ_job );
END Pkg_test1;
CREATE OR REPLACE PACKAGE BODY Pkg_test1
IS
PROCEDURE proc_job ( p_cur IN   emp_ttyp, o_Rat     OUT  typ_job )
  IS
    -- Declare collection variable
    l_typ_job typ_job;
BEGIN
   for i  in 1..p_cur.count loop
    select job,ename,sal bulk collect into l_typ_job
      from emp
      where empno=p_cur(i).empno ;
o_Rat:= l_typ_job;
end loop;
--Output
for i in 1..o_rat.count loop
DBMS_OUTPUT.PUT_LINE ( 'Output :'||o_rat(i).job||','||o_rat(i).ename||','||o_rat(i).sal );
  end loop;
EXCEPTION
  WHEN OTHERS THEN
       DBMS_OUTPUT.put_line('Procedure proc_job  - '|| SQLCODE|| '-'|| SQLERRM);
END proc_job;
  end pkg_test1;
/The package is created without errors
But while calling it is giving me the errors
DECLARE
  P_CUR PKG_TEST1.emp_ttyp;
  O_RAT PKG_TEST1.rec_job;
BEGIN
  PKG_TEST1.PROC_JOB ( P_CUR, O_RAT );
  COMMIT;
END; Error is ::
PLS-00306: wrong number or types of arguments in call to 'PROC_JOB'Could you hint me how to overcome this error..
Thank you..
Edited by: Smile on May 9, 2012 7:27 AM

Answer 1

# If p_cur input parameter is uninitialized and NULL then you cannot use any nested table function like count, first, last. Hence call to "p_cur.count " failes with error - "ORA-06531: Reference to uninitialized collection"
# Always check uninitialized collection using "IS NULL or IS NOT NULL" condition
# There is one more logic error:
for i  in 1..p_cur.count loop
    select job,ename,sal bulk collect into l_typ_job
      from emp
      where empno= SELECT column_value FROM (p_cur); (i).empno ;
   o_Rat:= l_typ_job;# You Iterate through all employees inp_cur but the o_Rat will contain only employee details for last employee in the p_cur table. You must use statement like "o_Rat := o_Rat MULTISET UNION l_typ_job;" to append the values into existing collection
Your package should look like:
CREATE OR REPLACE PACKAGE pkg_test1 IS
   ----- Record Variable ----
   TYPE rec_job IS RECORD(
      job   VARCHAR2(50),
      ename VARCHAR2(50),
      sal   NUMBER);
   TYPE typ_job IS TABLE OF rec_job;
   -- cursor declaration
   CURSOR emp_cur IS
      SELECT empno FROM emp;
   TYPE emp_ttyp IS TABLE OF emp_cur%ROWTYPE INDEX BY PLS_INTEGER;
   ---- Procedure Declaration ----
   PROCEDURE proc_job(p_cur IN emp_ttyp, o_rat OUT typ_job);
END pkg_test1;
CREATE OR REPLACE PACKAGE BODY pkg_test1 IS
PROCEDURE proc_job(p_cur IN emp_ttyp, o_rat OUT typ_job) IS
-- Declare collection variable
l_typ_job typ_job;
BEGIN
IF p_cur IS NULL THEN
   dbms_output.put_line('No employees as p_cur is NULL');
END IF;
IF p_cur IS NOT NULL THEN
  FOR i IN 1 .. p_cur.count LOOP
    SELECT job, ename, sal BULK COLLECT INTO l_typ_job
    FROM emp
    WHERE empno = p_cur(i).empno;
    o_rat := o_rat MULTISET UNION l_typ_job;
  END LOOP;
  --Output
  FOR i IN 1 .. o_rat.count LOOP
    dbms_output.put_line('Output :' || o_rat(i).job || ',' || o_rat(i).ename || ',' || o_rat(i).sal);
  END LOOP;
END IF;
EXCEPTION
WHEN OTHERS THEN
   dbms_output.put_line('Procedure proc_job  - ' || SQLCODE || '-' || SQLERRM);
END proc_job;
END pkg_test1;
{code}
Edited by: Himanshu Binjola on May 9, 2012 3:40 AM