Using varray as input parameter & passing it to SP along with otehr params.

Question

HI,
I need to use one of the IN parameter as collection type eg Varray. Other parameters are normal number,date type How would I write the SP to return the resultset to calling program.
If I write below code signature. while fetching refcursor loop values of varray will it work?
eg-
Create or Replace package Pkg1 IS
Type V_type is varray(5000) of Number;
Procedure getvalue(I_val1 IN date, I_val2 IN NUMBER,...,I_val5 IN V_type,
P_out OUT sysrefcursor);
END Pkg1;
Create package body Pkg1 AS
Procedure get_value((I_val1 IN date, I_val2 IN NUMBER,...,I_val5 IN V_type,
P_out OUT sysrefcursor);
IS
BEGIN
open P_out for
For i IN I_val5.FIRST..I_val5.LAST
LOOP
SELECT * from tab1 t
where t.col1 = I_val1
t.col2 = I_val2
t.col5 = I_val5(i);
END LOOP;
END;
END get_value;
END pkg1;
Here we need loop for only I_val5 param and all other parameters are common for each fetch.
will this work?

Answer 1

954825 wrote:
HI,
I need to use one of the IN parameter as collection type eg Varray. If I correctly understand your reqs, you need SQL type, not PL/SQL type. Use could use pre-defined type sys.OdciNumber:ist:
create or Replace
  package Pkg1
    is
      procedure getvalue(
                         I_val1 IN date,
                         I_val2 IN NUMBER,
                         I_val5 IN sys.OdciNumberList,
                         p_out OUT sysrefcursor
end Pkg1;
create or replace
  package body Pkg1
    is
      procedure getvalue(
                         I_val1 IN date,
                         I_val2 IN NUMBER,
                         I_val5 IN sys.OdciNumberList,
                         p_out OUT sysrefcursor
        is
        begin
            open p_out
              for
                select  *
                  from  tab1 t
                  where t.col1 = I_val1
                    and t.col2 = I_val2
                    and t.col5 in (
                                   select  column_value
                                     from  table(I_val5)
      end get_value;
end pkg1;
/SY.