drop table table1 purge;
drop table table2 purge;
drop table table3 purge;
create table table3 as
select case mod(level,3) when 0 then 'Petya' else 'Vasya' end name
from dual connect by level < 15000
;
create table table1 as select * from table3 where 1=0;
create table table2 as select * from table3 where 1=0;
DECLARE 
   failure_in_forall   EXCEPTION;  
   PRAGMA EXCEPTION_INIT (failure_in_forall, -24381);  
  cursor c3 is select * from table3; 
  type t_buffer is table of c3%rowtype index by pls_integer; 
  v_buffer t_buffer; 
  c_blocksize constant integer := 100; 
    V_T1_CNT NUMBER := 0; 
    V_T2_CNT NUMBER := 0; 
BEGIN 
  open c3; 
  loop 
    fetch c3 bulk collect into v_buffer limit c_blocksize; 
    begin 
        forall i in 1..v_buffer.count save exceptions
          insert into table1 values(case when v_buffer(i).name in ('Petya') then v_buffer(i).name else to_char(1/0) end); 
        v_t1_cnt := v_t1_cnt + sql%rowcount; 
    exception
      when failure_in_forall
        then declare e_idx pls_integer;
                begin
                    v_t1_cnt := v_t1_cnt + sql%rowcount; 
                    FOR i IN 1 .. SQL%BULK_EXCEPTIONS.COUNT  
                    LOOP
                      e_idx := SQL%BULK_EXCEPTIONS(i).ERROR_INDEX;
                      insert into table2 values v_buffer(e_idx) ; 
                      v_t2_cnt := v_t2_cnt + 1; 
                    END LOOP;
               end;
    end;
    exit when v_buffer.count < c_blocksize; 
  end loop; 
  close c3; 
 
    DBMS_OUTPUT.PUT_LINE(V_T1_CNT || ' row(s) inserted into TABLE1'); 
    DBMS_OUTPUT.PUT_LINE(V_T2_CNT || ' row(s) inserted into TABLE2'); 
END; 
/
4999 row(s) inserted into TABLE1
10000 row(s) inserted into TABLE2

PL/SQL procedure successfully completed.

SQL>