[firebase-br] Procedure nao compila

[NextCorp Informatica]

Caros colegas.

estou criando está procedure, mas não sei por que não consigo gerá-la

---------- STATEMENT ----------

CREATE PROCEDURE NEW_PROCEDURE (
    WSICAS12 VARCHAR(2),
    WSICAS33 VARCHAR(3),
    WEXERCMES VARCHAR(6),
    WTIPOENTI VARCHAR(1),
    WCODFEBRABAN VARCHAR(4),
    WDTGER DATE,
    WCODCED INTEGER,
    WDTVENC DATE)
RETURNS (
    WCODESC INTEGER,
    WCNPJ VARCHAR(16))
AS
DECLARE VARIABLE WCODBARRAS VARCHAR(44);
DECLARE VARIABLE WFX4 VARCHAR(11);
DECLARE VARIABLE WFX3 VARCHAR(11);
DECLARE VARIABLE WFX2 VARCHAR(11);
DECLARE VARIABLE WFX1 VARCHAR(11);
begin
  for
     select esc_codigo, esc_cnpj
     from escola
     into :wcodesc, :wcnpj
  do
     begin
        wfx1= udf_copy(cast(Gen_id(gen_grcs_id,1) as character),1,11);
        wfx2= '0000'+:wcodfebraban+:wtipoenti+:wsicas12;
        wfx3= :wsicas33+:wexercmes+'0'+udf_copy(:wcnpj,1,1);
        wfx4= udf_copy(:wcnpj,2,11);
        wcodbarras= :wfx1+:wfx2+:wfx3+:wfx4;
        insert into grcs(grc_controle, grc_codigo_cedente, grc_codigo_escola, grc_dtvenc, grc_dtgeracao, grc_exercicio, grc_codbarras)
        values(Gen_id(gen_grcs_id,1), :wcodced, :wcodesc, :wdtvenc, :wdtger, udf_copy(:wexercmes,7,4), :wcodbarras);
     end
  suspend;
end


---------- ERROR MESSAGE ----------

Unsuccessful execution caused by a system error that precludes
successful execution of subsequent statements.
Dynamic SQL Error.
expression evaluation not supported.

Já mudei varias vezes, mas não consegui encontrar o erro.

Atenciosamente

Washington A. Müller da Silva

#####################
NextCorp Informática Ltda
www.nextcorp.com.br
nextcorp em terra.com.br
0 xx (51)-3589-3690
####################