过程中报错00103怎么解决,
create or replace procedure num_group is
numbers number;
lan_number number;
i number :=1
** type type_array is table of number index by binary_integer;**
var_array type_array;
begin
delete from caipiao;
commit;
loop
insert into caipiao values ((select round((select dbms_random.value(1,32) from dual),0) from dual),
(select round((select dbms_random.value(1,32) from dual),0) from dual)into lan_number);
commit;
var_array(i)=lan_number;
i++;
select count(*) into numbers from (select distinct haoma from caipiao)numbers;
exit when numbers>5;
commit;
end loop;
update caipiao set lan_haoma = var_array(select dbms_random.value(1,i)from dual);
-- select count(*) into lan_number from caipiao;
-- update caipiao set lan_haoma = (select lan_haoma from caipiao t where rowid =(select dbms_random.value(1,lan_number)from dual));
commit;
end num_group;