[firebase-br] Execute Block Fire 2.0

[HPensador]

Bom dia Colegas!

Estou tentando executar um bloco no qual tenho paramentros de entrada, 
porém o fire dar erro nos mesmo. Já verifiquei em 
http://www.firebirdsql.org/refdocs/langrefupd20-execblock.html e não 
consigo ver nada de errado na minha PSQL, porém isto não quer dizer que 
eu não esteja fazendo ... rs (vide abaixo)

execute block (
   mes integer,
   ano integer,
   sequencia integer)
returns (
   codigo_lotacao varchar(7),
   nome_lotacao varchar(50),
   codigo_secretaria varchar(7),
   nome_secretaria varchar(50),
   codigo_departamento varchar(7),
   nome_departamento varchar(50),
   qtde_funcionarios integer)
as
begin
   for select x.codigo,
              x.nome
       from lotacao x
       where x.nivel = 3
   into :codigo_lotacao, :nome_lotacao do
   begin
     codigo_secretaria = substring(:codigo_lotacao from 1 for 2)||'00000';
     codigo_departamento = substring(:codigo_lotacao from 1 for 4)||'000';
     select a.nome
     from lotacao a
     where a.codigo = substring(:codigo_lotacao from 1 for 2)||'00000'
       and a.nivel = 1
     into :nome_secretaria;
     select a.nome
     from lotacao a
     where a.codigo = substring(:codigo_lotacao from 1 for 4)||'000'
       and a.nivel = 2
     into :nome_departamento;
     select count(w.matricula)
     from capa_variavel w
     where w.mes = :mes
       and w.ano = :ano
       and w.sequencia = :sequencia
       and w.codigo_lotacao = :codigo_lotacao
     group by w.codigo_lotacao into :qtde_funcionarios;
     suspend;
   end
end

-- 
[]'s,

Hélio Oliveira
Bel. Ciência da Computação
Técnico em Contabilidade
e-mail : hpensador em gmail.com
Skype : hpensador
http://hpensador.blogspot.com/
www.hpensador.net
(71) 9975-9176