-- Created on 2009-3-9 by ADMINISTRATOR
declare
-- Local variables here
i integer;
v_sql varchar2(1024);
type cursor_type is ref cursor;
v_cursor cursor_type;
type custom_type is table of T_XYZ_DATE%rowtype;
custom_table custom_type :=custom_type();

begin
-- Test statements here
v_sql :='truncate table t_xyz';
execute immediate v_sql;

v_sql :='select * from t_xyz_date';
open v_cursor for v_sql;
loop
fetch v_cursor bulk collect into custom_table limit 100000;
forall i in 1..custom_table.count
insert into t_xyz values custom_table(i);
commit;
exit when v_cursor%notfound;
end loop;
close v_cursor;

exception
when others then
rollback;
dbms_output.put_line(sqlerrm);
end;[@more@]