drop table t1;
create table t1 (n number);

declare
  qry varchar2(32767) :=
'begin
  insert into t1 values (1+:v*100);
  if mod(:v, 10) in(2, 3)then commit; end if;
  insert into t1 values (2+:v*100);
  if mod(:v, 10) in(3, 5)then raise program_error; end if;
';
begin
  for i in 11..15 loop
    begin
      execute immediate qry||' end;' using i;
    exception when others then null;
    end;
  end loop;
  for i in 21..25 loop -- тут анонимный блок обрабатывает исключения
    execute immediate qry||' exception when others then null; end;' using i;
  end loop;
end;
/

select * from t1;

DROP DATABASE INCLUDING BACKUPS NOPROMPT;