Dynamic parameter

Question

hi,
i'd like to convert the follow declaration in a dynamic mode
declare
type my_var is varray(???) of varchar2(10);
now i don't know how much columns my_var is,
i want pass the dimension to it with a varible in an other procedure
es:
procedure pro2(var2 number)is
type my_var is varray(var2) of varchar2(10);
begin
end;
procedure pro1 (var1 number) is
begin
pro2(var1);
end;
is it possible?
and for nested table?
thanks
luca

Answer 1

Here is a sample implementation. It consists of a function to tokenize a string into an array of elements and a procedure to assemble an array of those arrays. This may not do exactly what you want. In particular, it is forgiving if TXT consists of lines with different numbers of elements.
Cheers, APC
SQL> CREATE TYPE chunks AS TABLE OF varchar2(30);
  2  /
Type created.
SQL> CREATE TYPE chunk_array AS TABLE OF chunks;
  2  /
Type created.
SQL> CREATE OR REPLACE FUNCTION get_chunks
  2   (pv_txt IN VARCHAR2)
  3   RETURN chunks
  4  IS
  5     c chunks;
  6     l_string varchar2(32767);
  7     x number;
  8  BEGIN
  9     --initialise object
10     c := chunks();
11     l_string := pv_txt;
12     LOOP
13      x := instr(l_string, ';');
14      c.extend;
15      EXIT WHEN x = 0;
16      c(c.last) := substr(l_string, 1, x-1);
17      l_string := substr(l_string, x+1);
18     END LOOP;
19     c(c.last) := l_string;
20     RETURN c;
21  END get_chunks;
22  /
Function created.
SQL>
SQL> CREATE OR REPLACE PROCEDURE dyn_chunks
  2  IS
  3     ca chunk_array;
  4     c chunks;  
  5  BEGIN
  6     --initialise object
  7     ca := chunk_array();
  8     ca.extend;
  9     ca(ca.last) := get_chunks('44;KJJ;45-67-90');
10     ca.extend;
11     ca(ca.last) := get_chunks('43;APC;45-67-90');
12     ca.extend;
13     ca(ca.last) := get_chunks('45;XYZ;45-67-90');
14     ca.extend;
15     ca(ca.last) := get_chunks('45;XYZ;45-67-90;A-HA!');
16     FOR j IN ca.first..ca.last LOOP
17          c := ca(j);
18      FOR k IN  c.first..c.last LOOP
19          dbms_output.put(' #'||j||'::'||k||'='||c(k));
20      END LOOP;
21          dbms_output.new_line;
22     END LOOP;
23  END;
24  /
Procedure created.
SQL>
SQL> exec dyn_chunks
#1::1=44 #1::2=KJJ #1::3=45-67-90
#2::1=43 #2::2=APC #2::3=45-67-90
#3::1=45 #3::2=XYZ #3::3=45-67-90
#4::1=45 #4::2=XYZ #4::3=45-67-90 #4::4=A-HA!
PL/SQL procedure successfully completed.
SQL>