oracle批量插入存储过程

select count(1) from khsj

create or replace procedure proc_insert_khsj
as
  casekey char(14);
begin
  for i in 1..500000 loop
    casekey := 'TMP'||lpad(i,7,0);   -- TMP0000001
    insert into khsj values(i, 1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1);
  end loop;
  commit;
end;

begin
  proc_insert_khsj();
end;