[firebase-br] Stored Procedure - Erro quando n?o acho o codigo certo

[Osvaldo]

Na SP abaixo eu coloquei que quando não fosse achado um valor no SELECT, no
lugar de NULL a SP retornaria Zero, mas não esta funcionando, voces poderiam
me ajudar ?

Osvaldo


SET TERM ^ ;

CREATE PROCEDURE SP_CODCHAR (
    SP_TABELA VARCHAR(50),
    SP_CAMPO VARCHAR(50),
    SP_RESULT VARCHAR(50),
    SP_DESCR VARCHAR(50))
RETURNS (
    RS_CODIGO CHAR(2))
AS
DECLARE VARIABLE SSQL VARCHAR(200);
BEGIN
   /* Montando a String para SQL */
    sSQL = 'SELECT '   ||
                   :SP_RESULT   ||
                   ' FROM '    || :SP_TABELA ||
                   ' WHERE '   ||
                   :SP_CAMPO   || '=' || '''' || :SP_DESCR || '''';
    FOR
        /* Executando a SQL */
        EXECUTE STATEMENT sSQL
         /* Obtendo os Campos e Valores retornados pela Consulta */
    INTO :RS_CODIGO
    DO
    IF(rs_codigo IS NULL) THEN
     RS_CODIGO=0;
  SUSPEND;
END^

SET TERM ; ^