Процедура прошла успешно, но нет результата

Question

Вот код:

SET SERVEROUTPUT ON DECLARE - Curseurs CURSOR c1 IS
SELECT RWID FROM J_EVENT WHERE DT_SYST

-- Collections 

-- Variables de type record
rtc1                        tc1;    

vCpt                        NUMBER:=0;

НАЧАТЬ

OPEN c1;
LOOP
    FETCH c1 BULK COLLECT INTO rtc1 LIMIT 5000;

    FORALL i IN 1..rtc1.COUNT 
    DELETE FROM J_EVENT
      WHERE RWID = rtc1(i).RWID;
    COMMIT;

    -- Nombres lus : 5025651
    FOR i IN 1..rtc1.COUNT LOOP               
        vCpt := vCpt + SQL%BULK_RWCOUNT(i);
    END LOOP;            

    EXIT WHEN c1%NOTFOUND;   
END LOOP;
CLOSE c1;
COMMIT;

DBMS_OUTPUT.PUT_LINE ('Nombres supprimes : ' || TO_CHAR(vCpt)); 

КОНЕЦ; / Выход

Я ожидаю удаления некоторых данных.