[firebase-br] O que tenho the errado neste código que não compila-

[Mário Reis]

FB40, aparentemente s/ motivo? Não compila!
CREATE  FUNCTION SF$RTV_CFG(
  IN_PARAM SMALLINT DEFAULT 0)
RETURNS VARCHAR(50) CHARACTER SET WIN1252 COLLATE PXW_INTL850
AS
DECLARE VARIABLE OUT_RETURN VARCHAR(50) COLLATE PXW_INTL850 DEFAULT 'Erro.
O parâmetro não está atribuído.';
BEGIN
  /* Function body */
   Select CFG.VALPARAM from APL_CONFIG CFG
 Where  CFG.NPARAM=:IN_PARAM INTO :OUT_RETURN ;

 If (:OUT_RETURN is NULL) then
  OUT_RETURN='Erro. O parâmetro não está atribuído.';

 RESULT :OUT_RETURN;
 /*
 Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 14, column 9.
OUT_RETURN.

SQL Code: -104
IB Error Number: 335544569

 */
END;
O que foi que perdi? Alguém já teve este desatino!!!
Obrigado

Com os meus melhores cumprimentos
Mário Agostinho Reis
919262146

Esta mensagem contém informação de natureza confidencial e é
exclusivamente dirigida ao(s) destinatário(s) indicado(s). Se, por engano,
receber este email agradecemos que não o copie nem o reenvie e que nos
notifique do ocorrido através do email de resposta.