http://tracker.firebirdsql.org/browse/CORE-4004 
 http://tracker.firebirdsql.org/browse/CORE-3993 
 http://tracker.firebirdsql.org/browse/CORE-3989 
 http://tracker.firebirdsql.org/browse/CORE-3969 
 http://tracker.firebirdsql.org/browse/CORE-3908 
 http://tracker.firebirdsql.org/browse/CORE-3809 

set heading off; set list off;  
select '-- PACKET # 1:' BEGIN_SECTION from rdb$database; commit;  
--/*
COMMIT;
SET TRANSACTION READ WRITE READ COMMITTED RECORD_VERSION NO WAIT;
set heading off;
set list off;
set term ^;
--*/

execute block returns(msg varchar(200)) as

declare MIN_ROWS_FOR_INSERTING INT =  50;
declare MAX_ROWS_FOR_INSERTING int = 200;

declare MAX_FLD_VALUE int = 100;
declare v_inserted_cnt int;
declare i int=0;
declare v_result int;
declare v_last_gen type of column tmp.id;
declare v_rnd4err double precision;
declare v_rndval double precision;
declare v_stt varchar(2048);
declare v_log varchar(2048);
declare v_id type of column tmp.id;
declare v_f00 type of column tmp.f00;
declare v_f01 type of column tmp.f01;
declare v_f02 type of column tmp.f02;
declare v_f03 type of column tmp.f03;
declare v_f04 type of column tmp.f04;
declare v_f05 type of column tmp.f05;
declare v_f06 type of column tmp.f06;
declare v_f07 type of column tmp.f07;
declare v_f08 type of column tmp.f08;
declare v_f09 type of column tmp.f09;
declare v_f10 type of column tmp.f10;
declare v_f11 type of column tmp.f11;
declare v_dt1 type of column tmp.dt1;
declare v_act_id type of column log_activity.id = -2147483648;
declare v_dts_beg type of column log_activity.dts_beg;
declare v_dts_end type of column log_activity.dts_end;

declare MIN_TIME_FOR_LOGGING int = 2000;
declare LOWER_THRESHOLD_FOR_ERR double precision = 0; -- 0=no errors, 1=max errors

-- ######################################################################
--  INSERT INSERT INSERT INSERT INSERT INSERT INSERT INSERT INSERT INSERT
-- ######################################################################
begin
 
  msg=
    '-- attach_id='||current_connection||', intro .sql at '
    ||(select cast('now' as timestamp) from rdb$database)
    ||', init gen_test='||gen_id(gen_test,0);
  suspend;

  v_rndval=rand();
  v_rnd4err=rand(); -- error probability
  v_inserted_cnt=MIN_ROWS_FOR_INSERTING + v_rndval * (MAX_ROWS_FOR_INSERTING-MIN_ROWS_FOR_INSERTING);
  v_last_gen=gen_id(gen_test,0);
  msg='-- adding '||v_inserted_cnt||' rows'
      ||', v_rnd4err='||cast(:v_rnd4err as numeric(6,2))
      ||', LOWER_THRESHOLD_FOR_ERR='||cast(LOWER_THRESHOLD_FOR_ERR as numeric(6,2))
      ||', v_last_gen='||v_last_gen
  ;
  suspend;
  v_result=0;
  i=0;
  while (i < v_inserted_cnt and v_result=0) do begin

    if (exists( select * from ext_stoptest )) then -- 20.10.2012
    begin
      msg='test cancelled: external file stoptest has a non-zero size!';
      suspend;
      leave;
    end 
    v_act_id = -2147483648;

    v_id=gen_id(gen_test,1);
    v_f00=rand()*:MAX_FLD_VALUE;
    v_f01=rand()*:MAX_FLD_VALUE;
    v_f02=rand()*:MAX_FLD_VALUE;
    v_f03=rand()*:MAX_FLD_VALUE;
    v_f04=rand()*:MAX_FLD_VALUE;
    v_f05=rand()*:MAX_FLD_VALUE;
    v_f06=rand()*:MAX_FLD_VALUE;

    -- 11.02.2010 1930:
    v_f07=iif(:v_rnd4err < :LOWER_THRESHOLD_FOR_ERR and i>=v_inserted_cnt-1, rand()*:MAX_FLD_VALUE, -:v_id);
    v_f08=iif(:v_rnd4err < :LOWER_THRESHOLD_FOR_ERR and i>=v_inserted_cnt-1, rand()*:MAX_FLD_VALUE, :v_id);

    v_f09=rand()*:MAX_FLD_VALUE;
    v_f10=rand()*:MAX_FLD_VALUE;
    v_f11=rand()*:MAX_FLD_VALUE;
    v_dt1='01.03.2012 03:00:00';
    begin

      msg='insert into tmp(id,f00,f01,f02,f03,f04,f05,f06,f07,f08,f09,f10,f11,dt1)'
            ||' values('
            ||cast(:v_id as varchar(11))||','
            ||cast(:v_f00 as varchar(11))||','
            ||cast(:v_f01 as varchar(11))||','
            ||cast(:v_f02 as varchar(11))||','
            ||cast(:v_f03 as varchar(11))||','
            ||cast(:v_f04 as varchar(11))||','
            ||cast(:v_f05 as varchar(11))||','
            ||cast(:v_f06 as varchar(11))||','
            ||cast(:v_f07 as varchar(11))||','
            ||cast(:v_f08 as varchar(11))||','
            ||cast(:v_f09 as varchar(11))||','
            ||cast(:v_f10 as varchar(11))||','
            ||cast(:v_f11 as varchar(11))||','
            ||''''||cast(:v_dt1 as varchar(30))||''''
            ||'); -- i='||i;

       
      insert into tmp(id,f00,f01,f02,f03,f04,f05,f06,f07,f08,f09,f10,f11,dt1)
      values(:v_id
            ,:v_f00
            ,:v_f01
            ,:v_f02
            ,:v_f03
            ,:v_f04
            ,:v_f05
            ,:v_f06
            ,:v_f07
            ,:v_f08
            ,:v_f09
            ,:v_f10
            ,:v_f11
            ,:v_dt1
          );

        if (i in(0,1) or mod(i,100)=0 or i>=v_inserted_cnt-1 ) then
          suspend; -- 17.03.2012: minimize output

        when any do
        begin

          suspend; -- msg: insert-statement with zero division
          v_result=gdscode;
          msg='rollback; -- ABORT, gds='||v_result
                ||', i='||i
                ||', curr gen_test='||gen_id(gen_test,0)
                ||' at '||cast('now' as timestamp)||': '
                ||decode(v_result, 
                    335544665, 'violation of PK/UK',
                    335544321, 'num/string ovf',
                    335544345, 'lock on no_wait trn', 
                    335544349, 'dup val in idx', 
                    335544334, 'can`t upd erased row',
                    'UNKNOWN'
                );
          suspend;
          leave;
       end        
    end
    i=i+1;
  end
  if (v_result=0) then begin
    msg='commit; -- finish adding '||v_inserted_cnt||' rows at '||cast('now' as timestamp)
    ||', i='||i
    ||', curr gen_test='||gen_id(gen_test,0)
    ;
    suspend;
  end
end
--/*
^set term ;^
commit;

select 'Take some pause at '||cast('now' as timestamp) msg from rdb$database;
shell rndpause.bat;
select 'Pause is over   at '||cast('now' as timestamp) msg from rdb$database;

-- INSERTING, window # 120. Start  iter # 1 at 12:05:52,67
Database: 192.168.0.220/3330:idx_test
        Owner: SYSDBA
PAGE_SIZE 4096
Number of DB pages allocated = 31388
Sweep interval = 0
Forced Writes are OFF
Transaction - oldest = 23
Transaction - oldest active = 24
Transaction - oldest snapshot = 20
Transaction - Next = 813
ODS = 12.0
Default Character set: WIN1251

-- PACKET # 1:


-- attach_id=143, intro .sql at 2013-11-03 12:05:42.6850, init gen_test=1280777

-- adding 67 rows, v_rnd4err=0.93, LOWER_THRESHOLD_FOR_ERR=0.00, v_last_gen=1280798

insert into tmp(id,f00,f01,f02,f03,f04,f05,f06,f07,f08,f09,f10,f11,dt1) values(1280800,1,71,30,34,75,99,7
4,-1280800,1280800,65,8,43,'2012-03-01 03:00:00.0000'); -- i=0
insert into tmp(id,f00,f01,f02,f03,f04,f05,f06,f07,f08,f09,f10,f11,dt1) values(1280805,17,7,29,78,85,22,5
4,-1280805,1280805,28,86,82,'2012-03-01 03:00:00.0000'); -- i=1
insert into tmp(id,f00,f01,f02,f03,f04,f05,f06,f07,f08,f09,f10,f11,dt1) values(1281094,64,11,80,73,95,11,
7,-1281094,1281094,73,2,79,'2012-03-01 03:00:00.0000'); -- i=66
commit; -- finish adding 67 rows at 2013-11-03 12:05:42.6920, i=67, curr gen_test=1281098



Take some pause at 2013-11-03 12:05:42.7160


Pause is over   at 2013-11-03 12:05:49.6700


-- PACKET # 2:


-- attach_id=143, intro .sql at 2013-11-03 12:05:49.6980, init gen_test=1308588

-- adding 72 rows, v_rnd4err=0.46, LOWER_THRESHOLD_FOR_ERR=0.00, v_last_gen=1308588
 . . .