[firebase-br] Execute block não atualiza tabela

[Firebird]

Boa tarde Colegas!

No código abaixo necessito atualizar a tabela de funcionários, porém 
quando executo o bloco de código o mesmo não faz a atualização. O que 
posso estar fazendo errado.

execute block
as
declare variable maticula integer;
declare variable ar       varchar(1);
begin
  for select x.codigo
      from funcionario x
      where x.afastado = 'S'
      order by x.codigo
  into :maticula do
  begin
    ar = null;
    select first 1 h.afa_ret
    from historico h
    where h.matricula = :maticula
    order by h.data desc into :ar;
    if ((:ar = 'R') or (:ar is null))  then
      update funcionario set afastado = 'N' where codigo = :maticula;
    suspend;
  end
end

[ ]'s,

Hélio Oliveira