А как в этом цикле промежуточный комит поставить через каждые

Question

А как в этом цикле промежуточный комит поставить через каждые

100 записей?

begin
for i in 1..1000000 loop
insert into markcontrol.test_table
(id,
fam,
nam,
otc,
drg,
sn,
nomer)
values
(nextval('markcontrol.seq_test'),
substr(upper(md5(random()::text)),1,30),
substr(upper(md5(random()::text)),1,30),
substr(upper(md5(random()::text)),1,30),
current_date,
substr(upper(md5(random()::text)),1,2),
trunc(random()*999999999999)
);
end loop;
end;