Firebird自定义函数编译报错，如何修正该SQL语句？

问题背景 #

我查阅资料后编写了以下Firebird函数，预期实现将查询到的文本拼接后返回，但多次改写仍无法编译通过。

原函数代码 #

CREATE OR ALTER FUNCTION func_string_de_processos(p_num_processo int)
RETURNS BLOB
AS
DECLARE VARIABLE text BLOB;

DECLARE c1 CURSOR FOR
(SELECT vap.NOME_ANEXO AS nome
   FROM VW_ANEXOS_PROCESSOS vap
  WHERE vap.CODIGO_PROCESSO = :p_num_processo);
    
BEGIN
    
    text = '';

    OPEN c1;
    WHILE(1=1) DO
    BEGIN
        FETCH c1 INTO :current_value;

        IF (ROW_COUNT = 0) THEN
          LEAVE;
    
        IF (ROW_COUNT = 1) THEN
            text = text || current_value;
        ELSE 
            text = text || current_value || ' OR ';
    END
    CLOSE c1;

    RETURN text;
END

报错信息 #

SQL Error [335544851] [42000]: Dynamic SQL Error; SQL error code = -104; Unexpected end of command - line 4, column 23 [SQLState:42000, ISC error code:335544851]

核心问题与修复步骤 #

1. 缺少current_value变量声明
   代码中使用:current_value接收游标查询结果，但未提前声明该变量，这是导致编译报错的直接原因。Firebird要求所有变量必须先声明再使用，需在变量声明段添加：

   DECLARE VARIABLE current_value VARCHAR(255); -- 请匹配NOME_ANEXO字段的实际数据类型
   

2. ROW_COUNT逻辑误用
   Firebird的ROW_COUNT仅返回上一次操作影响的行数：FETCH成功时返回1，无数据时返回0，无法用来判断当前是第几个元素。要实现“首个元素直接拼接，后续元素加OR”的逻辑，需新增计数器变量：

   DECLARE VARIABLE counter INT DEFAULT 0;
   

   并修改循环内的拼接逻辑：

   counter = counter + 1;
   IF (counter = 1) THEN
       text = text || current_value;
   ELSE 
       text = text || ' OR ' || current_value;
   

3. BLOB变量初始化优化
   直接给BLOB变量赋值空字符串''可能引发兼容性问题，建议改用EMPTY_BLOB()函数初始化：

   text = EMPTY_BLOB();
   

修复后的完整函数 #

CREATE OR ALTER FUNCTION func_string_de_processos(p_num_processo int)
RETURNS BLOB
AS
DECLARE VARIABLE text BLOB;
DECLARE VARIABLE current_value VARCHAR(255); -- 根据实际字段类型调整
DECLARE VARIABLE counter INT DEFAULT 0;

DECLARE c1 CURSOR FOR
SELECT vap.NOME_ANEXO AS nome
FROM VW_ANEXOS_PROCESSOS vap
WHERE vap.CODIGO_PROCESSO = :p_num_processo;
    
BEGIN
    text = EMPTY_BLOB();

    OPEN c1;
    WHILE(1=1) DO
    BEGIN
        FETCH c1 INTO :current_value;

        IF (ROW_COUNT = 0) THEN
          LEAVE;
        
        counter = counter + 1;
        IF (counter = 1) THEN
            text = text || current_value;
        ELSE 
            text = text || ' OR ' || current_value;
    END
    CLOSE c1;

    RETURN text;
END

内容的提问来源于stack exchange，提问作者Loknitro