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

需求：往表

test1000w 中的某个字段 id 插入1-10000000.

可以想见，应该是用存储过程，循环插入。另，可以每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;