Error - wrong number or tyeps of argument

Question

Hi All,
I am facing error while passing record type parameter to procedure P2.
CREATE OR REPLACE PACKAGE Pkg_test AS
v_Bulk_Limit NUMBER := 1000;
TYPE Test_Rec IS RECORD(
F1 NUMBER,
F2 NUMBER,
F3 NUMBER);
PROCEDURE p1(IN_dt DATE);
Procedure p2 (in_tab Test_Rec);
END Pkg_test;
CREATE OR REPLACE PACKAGE BODY Pkg_test AS
PROCEDURE p1(IN_dt IN DATE) AS
TYPE rec IS TABLE OF Test_Rec INDEX BY PLS_INTEGER;
v_rec rec;
CURSOR c1 IS
SELECT col1,col2,col3 FROM test;
BEGIN
OPEN c1;
LOOP
FETCH c1 BULK COLLECT INTO v_rec LIMIT pkg_test.v_Bulk_Limit;
EXIT WHEN v_rec.COUNT = 0;
p2(v_rec); /**giving error here*/* END LOOP;
CLOSE c1;
END p1;
Procedure p2 (in_tab IN Test_Rec)
AS
BEGIN
dbms_output.put_line ('Cnt : ' || in_tab.COUNT);
END;
END Pkg_test;

Answer 1

SQL> SELECT * FROM v$version;
BANNER
Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - Prod
PL/SQL Release 10.2.0.1.0 - Production
CORE     10.2.0.1.0     Production
TNS for Linux: Version 10.2.0.1.0 - Production
NLSRTL Version 10.2.0.1.0 - Production
SQL> CREATE TABLE test(col1 NUMBER,col2 NUMBER,col3 NUMBER);
Table created.
SQL> INSERT INTO test VALUES(1,2,3);
1 row created.
SQL> INSERT INTO test VALUES(4,5,6);
1 row created.
SQL> commit;
Commit complete.
SQL> create or replace
PACKAGE Pkg_test
AS
  v_Bulk_Limit NUMBER := 1000;
TYPE Test_Rec
IS
  RECORD
    F1 NUMBER,
    F2 NUMBER,
    f3 number);
TYPE tmp_tb IS TABLE OF  Test_Rec INDEX BY PLS_INTEGER;  
PROCEDURE p1(
    IN_dt DATE);
PROCEDURE p2(
    in_tab tmp_tb);
END pkg_test;  2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17 
18  /
Package created.
SQL> create or replace
PACKAGE BODY Pkg_test
AS
PROCEDURE p2(
    in_tab IN tmp_tb)
AS
BEGIN
  dbms_output.put_line ('Cnt : ' || in_tab.count);
END p2;
PROCEDURE p1(
    IN_dt IN DATE)
as
  v_rec tmp_tb;
  CURSOR c1
  IS
    SELECT col1,col2,col3 FROM test;
BEGIN
  OPEN c1;
  LOOP
    FETCH c1 BULK COLLECT INTO v_rec LIMIT pkg_test.v_Bulk_Limit;
    exit
  WHEN C1%NOTFOUND;
    p2(v_rec);
  end loop;
  p2(v_rec);
  CLOSE c1;
END p1;
END Pkg_test;  2    3    4    5    6    7    8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29 
30  /
Package body created.
SQL> SET SERVEROUT ON
SQL> begin
pkg_test.p1(sysdate);
end;  2    3 
  4  /
Cnt : 2
PL/SQL procedure successfully completed.
SQL>