Oracle批量插入1到1千万数据

需求：

往表test1000w中的某个字段id插入1-100000000，实现方法是用存储过程，循环插入。可以设置每10000条提交一次。

代码：

CREATE OR REPLACE PROCEDURE p_insert_part
IS


--批量提交参数
num NUMBER;
begin
  num := 0;


  for i in 1 .. 10000000
    loop
       insert into test1000w(id)
       values (i);
			num:=num+1;
			if mod(num,10000)=0 then
				commit;
			end if;
	end loop
	commit;
end;