oracle for loop 用法

Oracle存储过程for用法，每500条提交一次。

create or replace procedure PS_TEST IS
begin 
FOR i IN 1..10000
LOOP
--delete from test where name=to_char(i);
INSERT INTO test VALUES(to_char(i),i+2);
IF MOD(i,500) = 0 THEN
COMMIT;
END IF;
END LOOP;
COMMIT;
end PS_TEST;