Rollback_in_loop_2

Rollback_in_loop_2

/*using savepoint*/
declare 
  i integer;
	cnt number := 0; 
begin
  insert into tbl_1
    (id1)
  values
    (1); 
		
  for s in (SELECT t.* FROM all_objects t where rownum < 3) loop  
    cnt := cnt + 1;
    execute immediate 'savepoint svp'||cnt;    
    begin
      insert into tbl_2
        (id2)
      values
        (1);
      
      i := 7 / (2-2);
    exception
      when others then
        execute immediate 'rollback to savepoint svp'||cnt;
        dbms_output.put_line(SQLERRM || ' => ' || cnt); 
    end;
  end loop;
  
end;