Execute Procedure by passing number array

Question

Hi,
Oracle 11.2.0.1
Windows
create type np_type is varray(3) of number
create type cn_type is varray(3) of number;
create type cxn_type is varray(3) of varchar2(2000)
I created TEST table by below pl/sql block :
declare
execstr varchar2(2000) :='create table test(';
begin
for i in 1..80 loop
execstr:=execstr || 'col' || to_char(i) || ' number,';
end loop;
execstr:=substr(execstr,1,length(execstr)-1);
execstr:=execstr || ')';
dbms_output.put_line(execstr);
execute immediate execstr;
end;
create table sp_table(Splitid number,Delimiterlength number);
insert into sp_table values(1,4);
insert into sp_table values(2,7);
insert into sp_table values(3,9);
insert into sp_table values(4,1);
insert into sp_table values(5,2);
insert into sp_table values(6,6);
create or replace procedure myproc1
strx in varchar2, delarray in np_type)
as
execstr varchar2(2000);
cn cn_type;
cxn cxn_type;
xpos number:=1;
begin
execstr := 'insert into test values(';
for i in 1..3 loop
select Delimiterlength into cn(i) from sp_table where Splitid = delarray(i);
cxn(i):=substr(strx,xpos,cn(i));
execstr :=execstr || cxn(i) || ',';
xpos :=cn(i) + xpos;
end loop;
execstr := RTRIM(execstr,',')|| ')';
dbms_output.put_line(execstr);
--execute immediate execstr;
end;
SQL> declare
  2    v np_type:=np_type(4,4,4);
  3    begin
  4    --dbms_output.put_line(v(3));
  5    exec myproc1('111',v);
  6    end;
  7  /
  exec myproc1('111',v);
ERROR at line 5:
ORA-06550: line 5, column 8:
PLS-00103: Encountered the symbol "MYPROC1" when expecting one of the
following:
:= . ( @ % ;
The symbol ":=" was substituted for "MYPROC1" to continue.
SQL>The above procedure will insert the supplied numbered string into the test table which split the numbered string based upon supplied splitids of sp_table.
Actually, I was trying to help one forum member for his/her question, but I am not getting where I am doing the mistake above. Obviously there is small bit which I am missing, but not getting that. That thread is too running in this forum.
Please help me.
Regards
Girish Sharma

Answer 1

SQL> ed
Wrote file afiedt.buf
  1  declare
  2  a1 number :=4; a2 number :=4; a3 number :=4;
  3  type np_type is varray(3) of number;
  4  v np_type:=np_type(a1,a2,a3);
  5  begin
  6  for i in 1..3 loop
  7  dbms_output.put_line('v(' || i || ') = ' || v(i));
  8  --myproc1('111',v);
  9  end loop;
10* end;
SQL> /
v(1) = 4
v(2) = 4
v(3) = 4
PL/SQL procedure successfully completed.
SQL> ed
Wrote file afiedt.buf
  1  declare
  2  a1 number :=4; a2 number :=4; a3 number :=4;
  3  type np_type is varray(3) of number;
  4  v np_type:=np_type(a1,a2,a3);
  5  begin
  6  for i in 1..3 loop
  7  dbms_output.put_line('v(' || i || ') = ' || v(i));
  8  --myproc1('111',v);
  9  end loop;
10  myproc1('111',v);
11* end;
SQL> /
myproc1('111',v);
ERROR at line 10:
ORA-06550: line 10, column 1:
PLS-00306: wrong number or types of arguments in call to 'MYPROC1'
ORA-06550: line 10, column 1:
PL/SQL: Statement ignored
SQL>