[firebase-br] Erro em SP StrZero

[Newton]

a Procedure abaixo está retornando erro na linha 14, já verifiquei e
parece que tá tudo certo. o que pode ser ?

CREATE PROCEDURE STR_ZERO (
   STRING Varchar(50),
   QTD Integer Default 0
)

RETURNS (

      RESULT Varchar(50))
AS
   DECLARE VARIABLE i Integer;
BEGIN
   i = 0;
   RESULT = :STRING;
   while (i < (:QTD - char_length(:STRING))) do
   begin
     RESULT = '0' || RESULT;
     i = i + 1;
   end
   SUSPEND;
END

[]s
Newton