Пример работы с исполняемыми блоками в Firebird (2.0 и выше)

execute block returns (i2 int) as declare i int = 0;
begin
while (i < 128) do
begin
i = i + 1;
i2 = i;
suspend;
end
end