oracle 一次插入大量数据

一次插入千万数据，十万提交一次

DECLARE
    i INTEGER;
BEGIN
    FOR i IN 1..10000000
        LOOP
            INSERT INTO A_TEST (id, USERNAME, PASSWORD, CREATEDON) VALUES (i, 'Sample data ' || i, '1', sysdate);
            IF MOD(i, 100000) = 0 THEN
                COMMIT;
            END IF;
        END LOOP;
    COMMIT;
END;