Оновлення даних таблиці на підставі вибірки з іншої таблиці за допомогою EXECUTE BLOCK

execute block, FireBird

Доброго часу доби!
Знову робочі нотатки.
Виникла необхідність оновити дані по IP-адресах серверів БД на об'єктах.
Тобто. на підставі результату SELECT виконати UPDATE в іншій таблиці.

Будемо використовувати конструкцію EXECUTE BLOCK:

execute block
as
declare term_id int;     -- № терминала
declare adr varchar(20); -- IP адрес пк с базой
begin
    FOR
    -- Выбираем IP адреса
    select a.terminal_id, a.ip_addr from app_version a
    group by a.terminal_id, a.ip_addr
    -- в эти переменные
    into :term_id, :adr
    do
        begin
        -- Изменяем другую таблицу
        update connections c set c.server_name = :adr where c.terminal_id = :term_id;
        end
        suspend;
end