Oracle 一段批量提交的代码

CREATE OR REPLACE PROCEDURE test(p_array_size IN PLS_INTEGER DEFAULT 10000)
IS

TYPE ARRAY IS TABLE OF a%ROWTYPE;
l_data ARRAY;

CURSOR c IS
SELECT *
FROM a;

BEGIN
    OPEN c;
    LOOP
    FETCH c BULK COLLECT INTO l_data LIMIT p_array_size;

    FORALL i IN 1..l_data.COUNT  
      INSERT INTO t VALUES l_data(i);
    COMMIT;
   
    EXIT WHEN c%NOTFOUND;
    END LOOP;
    CLOSE c;
END test;
/