Error while executing the function

Question

hi,
I have a table with the following data.
T_1          T_2 T_3        T_4
a.1            1 aa         ff
a.1            2 ab         ff
a.2            1 ba         ff
a.2            2 bb         ff
a.2            3 bc         ff
a.2            4 bd         ff
a.3            1 ca         ff
a.3            3 cc         ff
a.4            2 db         ffi want the data in the following way.
col_1       col_2         col3
a.1         1,2             aa ,ab
a.2         1,2 ,3,4       ba,bb,bc,bd
a.3         1,3             ca,cc
a.4         2                db         For this , i have written a package as shown below.
create or replace package t_emp_pkg as
type typ_emp is record
tv_t_1 t_Emp.t_1%type,
tv_t_2 varchar2(20),
tv_t_3 varchar2(20));
type typ_emp_tab is table of typ_emp;
function t_emp_func(pv_value in varchar2) return typ_emp_tab;
end t_emp_pkg;
create or replace package body t_emp_pkg as
function t_emp_func(pv_value in varchar2) return typ_emp_Tab is
cursor c1(v_value varchar2) is
select distinct t_1 from t_emp where t_4 = v_value ;
cursor c2(pv_t_1 varchar2) is
select t_2,t_3 from t_emp
where t_1 = pv_t_1;
typ_emp_table typ_emp_tab := typ_emp_tab();
t_count number := 0;
c1_cur_rec c1%rowtype;
c2_cur_rec c2%rowtype;
v_temp_value1 varchar2(30);
v_temp_value2 varchar2(30);
begin
open c1(pv_value);
loop
fetch c1 into c1_cur_rec;
exit when c1%notfound;
v_temp_value1 := null;
v_temp_value2 := null;
open c2(c1_cur_rec.t_1);
loop
fetch c2 into c2_cur_rec;
exit when c2%notfound;
v_temp_value1 := v_temp_value1||','||c2_cur_rec.t_2;
v_temp_value2 := v_temp_value2||','||c2_cur_rec.t_3;
end loop;
--close c2;
t_count := t_count+1;
typ_emp_table(t_count).tv_t_1 := c1_cur_rec.t_1;
typ_emp_table(t_count).tv_t_2 := v_temp_value1;
typ_emp_table(t_count).tv_t_3 := v_temp_value2;
--dbms_output.put_line(typ_emp_table(t_count).tv_t_1);
--dbms_output.put_line(typ_emp_table(t_count).tv_t_2);
--dbms_output.put_line(typ_emp_table(t_count).tv_t_3);
end loop;
close c1;
return typ_emp_table;
end;
end;
When i executed the function , i got the following error.
SQL> declare
2 v t_emp_pkg.typ_emp_tab := t_emp_pkg.typ_emp_tab();
3 begin
4 v := t_emp_pkg.t_emp_func('ff');
5 for i in v.first..v.last loop
6 dbms_output.put_line(v(i).tv_t_1 ||', '||v(i).tv_t_2||', '||v(i).tv_t_3);
7 end loop;
8 end;
9 /
declare
ERROR at line 1:
ORA-06533: Subscript beyond count
ORA-06512: at "SCOTT.T_EMP_PKG", line 30
ORA-06512: at line 4
but when i am running this queries in anonymous block (i.e) using declare,begin,end , i am getting the data correctly.
  1  declare
  2  pv_value varchar2(5) := 'ff';
  3   cursor c1(v_value varchar2) is
  4  select distinct t_1 from t_emp where t_4 = v_value ;
  5  cursor c2(pv_t_1 varchar2) is
  6  select t_2,t_3 from t_emp
  7  where t_1 = pv_t_1;
  8  --typ_emp_table typ_emp_tab := typ_emp_tab();
  9  t_count number := 0;
10  c1_cur_rec c1%rowtype;
11  c2_cur_rec c2%rowtype;
12  v_temp_value1 varchar2(300);
13  v_temp_value2 varchar2(300);
14  begin
15  open c1(pv_value);
16  loop
17  fetch c1 into c1_cur_rec;
18  exit when c1%notfound;
19  v_temp_value1 := null;
20  v_temp_value2 := null;
21  open c2(c1_cur_rec.t_1);
22  loop
23  fetch c2 into c2_cur_rec;
24  exit when c2%notfound;
25  v_temp_value1 := v_temp_value1||','||c2_cur_rec.t_2;
26  v_temp_value2 := v_temp_value2||','||c2_cur_rec.t_3;
27  end loop;
28  close c2;
29  t_count := t_count+1;
30  --typ_emp_table(t_count).tv_t_1 := c1_cur_rec.t_1;
31  --typ_emp_table(t_count).tv_t_2 := v_temp_value1;
32  --typ_emp_table(t_count).tv_t_3 := v_temp_value2;
33  dbms_output.put_line(c1_cur_rec.t_1);
34  dbms_output.put_line(v_temp_value1);
35  dbms_output.put_line(v_temp_value2);
36  end loop;
37  close c1;
38* end;
39  /
a.2
,1,2,3,4
,ba,bb,bc,bd
a.3
,1,3
,ca,cc
a.4
,2
,db
a.1
,1,2
,aa,ab
PL/SQL procedure successfully completed.So can anybody tell me why it is not executing correctly when executing as a function.
Thanks in advance.

Answer 1

hi devmiral,
I am not sure exactly where i am making the mistake. I have modified the package but still i am getting the error.
create or replace package body t_emp_pkg as
function t_emp_func(pv_value in varchar2) return typ_emp_Tab is
cursor c1(v_value varchar2) is
select distinct t_1 from t_emp where t_4 = v_value ;
cursor c2(pv_t_1 varchar2) is
select t_2,t_3 from t_emp
where t_1 = pv_t_1;
typ_emp_table typ_emp_tab ;
--:= typ_emp_tab();
t_count number := 0;
c1_cur_rec c1%rowtype;
c2_cur_rec c2%rowtype;
v_temp_value1 varchar2(30);
v_temp_value2 varchar2(30);
begin
open c1(pv_value);
loop
fetch c1 into c1_cur_rec;
exit when c1%notfound;
v_temp_value1 := null;
v_temp_value2 := null;
open c2(c1_cur_rec.t_1);
loop
fetch c2 into c2_cur_rec;
exit when c2%notfound;
v_temp_value1 := v_temp_value1||','||c2_cur_rec.t_2;
v_temp_value2 := v_temp_value2||','||c2_cur_rec.t_3;
end loop;
--close c2;
t_count := t_count+1;
typ_emp_table(t_count).tv_t_1 := c1_cur_rec.t_1;
typ_emp_table(t_count).tv_t_2 := v_temp_value1;
typ_emp_table(t_count).tv_t_3 := v_temp_value2;
typ_emp_table := typ_emp_tab(c1_cur_rec.t_1,v_temp_value1,v_temp_value2);
typ_emp_table.extend;
end loop;
close c1;
return typ_emp_table;
end;
end;
SQL> @t_emp_pkg_body.sql
Warning: Package Body created with compilation errors.
SQL> sho err
Errors for PACKAGE BODY T_EMP_PKG:
LINE/COL ERROR
36/1     PL/SQL: Statement ignored
36/18    PLS-00306: wrong number or types of arguments in call to
         'TYP_EMP_TAB'
36/18    PLS-00306: wrong number or types of arguments in call to
         'TYP_EMP_TAB'
36/18    PLS-00306: wrong number or types of arguments in call to
         'TYP_EMP_TAB'Thanks in advance.