Need some help on procedure calling procedure using object type reg

Question

dear all,
i need to test one procedure by passing only one value but how do i pass single value. i am showing the details of few section on which i am working on. here is few details about the package.
Description: package pkj_emp contains two procedure pkj_emp and procedure proc_rem.
purpose:based on passing dname values to procedure pkj_emp, cursor cur_emp will fetch empid from emp table and then we are passing 4 empid records to procedure proc_rem using empid object type.Inside the procedure proc_rem it will delete all 4 records of table A,B,C and D at one short.
Requirement:i need to test for only one value that means is it possible i can pass only one value using the cursor cur_emp.
create or replace package pkj_emp
TYPE obj_emp IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
procedure proc_emp(empid obj_emp);
create or replace package body pkj_emp
as
procedure(
dname varchar2;
as
cursor cur_emp is select emp_id from emp a,dept d
where a.deptid=d.deptid
and d.deptname=dname;
begin
count:=0;
               for cur_emp_rec in cur_emp LOOP
               empid(count) := cur_emp_rec.emp_id;
          IF (count = 4) THEN
               proc_rem(empid); // calling another procedure
               commit;
               END IF;
               count := count + 1;
               END LOOP;
end;
proc_rem(
empid obj_emp;
is
begin
delete from A where emp_id in (empid(0),empid(1),empid(2),empid(3));
delete from B where emp_id in (empid(0),empid(1),empid(2),empid(3));
delete from c where emp_id in (empid(0),empid(1),empid(2),empid(3));
delete from d where emp_id in (empid(0),empid(1),empid(2),empid(3));
end;
regards
Laxman

Answer 1

You have hardcoded your IN LIST in the REM procedure. I recommend changing the code to take a variable number of inputs. You could do something like the following:
SQL> CREATE TABLE A (ID NUMBER);
Table created.
SQL> CREATE TABLE B (ID NUMBER);
Table created.
SQL> CREATE TABLE C (ID NUMBER);
Table created.
SQL> CREATE TABLE D (ID NUMBER);
Table created.
SQL> INSERT INTO A VALUES(7566);
1 row created.
SQL> INSERT INTO B VALUES(7902);
1 row created.
SQL> INSERT INTO C VALUES(7876);
1 row created.
SQL> INSERT INTO D VALUES(7369);
1 row created.
SQL> CREATE OR REPLACE TYPE EMP_TYPE AS TABLE OF NUMBER(4);
  2  /
Type created.
SQL> CREATE OR REPLACE PACKAGE PKJ_EMP
  2  AS
  3          PROCEDURE PKJ_EMP
  4          (
  5                  DNAME   IN      SCOTT.EMP.DEPTNO%TYPE
  6          );
  7 
  8          PROCEDURE REM
  9          (
10                  pEMPList  IN      EMP_TYPE
11          );
12  END PKJ_EMP;
13  /
Package created.
SQL> CREATE OR REPLACE PACKAGE BODY PKJ_EMP
  2  AS
  3          PROCEDURE PKJ_EMP
  4          (
  5                  DNAME   IN      SCOTT.EMP.DEPTNO%TYPE
  6          )
  7          AS
  8                  pEMPList        EMP_TYPE := EMP_TYPE();
  9                  i               NUMBER := 1;
10          BEGIN
11                  FOR r IN
12                  (
13                          SELECT  EMPNO
14                          FROM    SCOTT.EMP
15                          WHERE   DEPTNO = DNAME
16                  )
17                  LOOP
18                          pEMPList.EXTEND;
19                          pEMPList(i) := r.EMPNO;
20 
21                          i := i + 1;
22                  END LOOP;
23 
24                  REM(pEMPList);
25          END PKJ_EMP;
26 
27          PROCEDURE REM
28          (
29                  pEMPList  IN      EMP_TYPE
30          )
31          AS
32          BEGIN
33                  DELETE FROM A WHERE ID IN (SELECT   COLUMN_VALUE FROM TABLE(pEMPList));
34                  DELETE FROM B WHERE ID IN (SELECT   COLUMN_VALUE FROM TABLE(pEMPList));
35                  DELETE FROM C WHERE ID IN (SELECT   COLUMN_VALUE FROM TABLE(pEMPList));
36                  DELETE FROM D WHERE ID IN (SELECT   COLUMN_VALUE FROM TABLE(pEMPList));
37          END REM;
38  END PKJ_EMP;
39  /
Package body created.
SQL> EXEC PKJ_EMP.PKJ_EMP(20);
PL/SQL procedure successfully completed.
SQL> SELECT * FROM A;
no rows selected
SQL> SELECT * FROM B;
no rows selected
SQL> SELECT * FROM C;
no rows selected
SQL> SELECT * FROM D;
no rows selected
SQL> spool off;HTH!