Aşağıdaki kod parçacığı ile stok kartlarındaki kod değerinin ilgili stoklar için ikinci bir barkod olarak eklenmesi sağlanabilir.
execute block as
declare variable xk type of k;
declare variable xsb_k type of k;
declare variable xkod type of barkod;
begin
for select s.kod, sb.k, s.k from stok s left join stokbirim sb on sb.stok_k=s.k where s.kod is not null into :xkod, :xsb_k, :xk
do
begin
IF (NOT EXISTS(select * from stokbirimbarkod where barkod=:xkod)) then
begin
insert into stokbirimbarkod (stokbirim_k, barkod) values (:xsb_k, :xkod);
/* update komutu ile barkod olarak eklenen kod, stok alanından silinir
istenirse satırın başına -- işareti konularak bu kod devre dışı bırakılabilir */
update stok set kod=NULL where k=:xk;
end
end
end