[firebase-br] Malformed string

[Hélio Oliveira]

Boa tarde Colegas!

Extrair o metada de um BD do Firebird 2.0 e estou tentando recria-lo no 
Firebrid 2.5 e estou recebendo esta mensagem durante o processo de 
criação de algumas SPs. Uma das demonstro abaixo:

ALTER PROCEDURE BISEXTO (
     ANO INTEGER)
RETURNS (
     RESULTADO SMALLINT)
AS
declare variable mod_4 integer;
declare variable mod_100 integer;
declare variable mod_400 integer;
begin
   select :ano - (cast(:ano/4 as integer) * 4) from rdb$database into 
:mod_4;
   select :ano - (cast(:ano/100 as integer) * 100) from rdb$database 
into :mod_100;
   select :ano - (cast(:ano/400 as integer) * 400) from rdb$database 
into :mod_400;
   if (((mod_4 = 0) and (mod_100 <> 0)) or (mod_400 = 0)) then
     resultado = 1;
   else
     resultado = 0;
   suspend;
end^


unsuccessful metadata update.
MODIFY RDB$PROCEDURES failed.
Malformed string.

O que há de errado?

-- 
[]'s,

Hélio Oliveira
Analista de Sistemas
Delphi Developer
http://hpensador.blogspot.com/