oracle 循环每5000提交一次

DECLARE
j number;
s_sql varchar2(5000);
BEGIN
FOR j IN 1 .. 1000000 LOOP
s_sql := 'insert into collect_data
select t.test_start_date,
t.test_end_date,
t.test_qq,
t.test_name,
DQMP_PROBLEM_DATA_SEQ.NEXTVAL,
t.dept,
t.password_old1,
t.password_old2,
t.password_modify_date
from test1 t';
execute immediate s_sql;
commit;
END LOOP;
END;