Table name as parameter to function

Question

Hi all,
can anybody help me on the below issue..
i have a function like this:
**create or replace**
**function "IL_SUM_AVG_FN" return number is**
**cursor c1 is**
**     select     sum_avg_val value**
**     from     wel_10_tab**
**     where     type='1';**
**v_sum number;**
**v_count number;**
**BEGIN**
**     v_sum:=0;**
**     v_count:=0;**
**     for i in c1 loop**
**          if v_count=0 then**
**               v_sum:=i.value;**
**          else**
**               v_sum:=abs(i.value+v_sum);**
**          end if;**
**          v_count:=v_count+1;**
**     end loop;**
**     return v_sum;**
**END;**
now my requirement is like..i want to pass a value as parameter to the function..say i will pass 10 or11 or 12
then it should change the table name in the cursor according to the parameter.i.e
if the parameter is 10 it should be: select sum_avg_val value from wel_10_tab where type='1';
if the parameter is 11 it should be: select sum_avg_val value from wel_11_tab where type='1';
if the parameter is 12 it should be: select sum_avg_val value from wel_12_tab where type='1';
parameter has only these three possible values..
how to achieve this?
please help..

Answer 1

Hi,
you can do without execute immediate and one cursor is sufficient, if you use open cursor for ...:
set serveroutput on;
drop table TestTab1;
drop table TestTab2;
create table TestTab1 (
     val number
create table TestTab2 as (select * from TestTab1 where 0 = 1);
create or replace procedure TestProc (
     TableName in varchar2)
is
     rec TestTab1%rowtype;
     cur sys_refcursor;
     curStr varchar2(1024) := 'select * from ' || TableName;
begin
     open cur for curStr;
     loop
          fetch cur into rec;
          exit when cur%notfound;
          dbms_output.put_line ('value = ' || rec.val);
     end loop;
end;
insert into TestTab1 (val) values (1);
insert into TestTab1 (val) values (2);
insert into TestTab1 (val) values (3);
insert into TestTab1 (val) values (4);
insert into TestTab2 (val) values (101);
insert into TestTab2 (val) values (102);
insert into TestTab2 (val) values (103);
insert into TestTab2 (val) values (104);
begin TestProc('TestTab1'); end;
begin TestProc('TestTab2'); end;
/regards,
Frank
Edited by: user8704911 on Jul 11, 2011 10:35 PM
Edited by: user8704911 on Jul 11, 2011 10:36 PM