Error al definir un SP

[Angel.Matilla]

Aunque tiene que ver con mi hilo anterior (Pivote: Sigo sin entenderlo...), prefiero abrir un hilo nuevo para no liarla más.

Sé que soy muy pesado y el 90% de mis consultas tienen que ver con errores de base. Estoy tratando definir un SP en tiempo de ejecución; el query queda de esta manera:

Código SQL [-]
CREATE PROCEDURE SP_PROCESO_FILAS
RETURNS (pProceso INTEGER, 
         pFila INTEGER, 
         pCodigo INTEGER, 
         pVotos INTEGER, 
         pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
BEGIN
  OldProc = -1;
  pFila = 0;
  FOR SELECT Proceso, Codigo, Votos2, Total
  FROM SYSDBA112042
  INTO :pProceso,    // El error lo da en esta línea
       :pCodigo, 
       :pVotos, 
       :pTotal
  DO
  BEGIN
    IF (OldProc <> pProceso) THEN
    BEGIN
      pFila = 0;
        OldProc = pProceso;
    END
    pFila = pFila + 1;
    SUSPEND;
  END
END;

Como decía en un mensaje mio de ese otro hilo si lo ejecuto desde SQL Manager tal como está se crea sin problema el SP, pero si lo hago desde la aplicación me da un error

Dynamic SQL Error
SQL error code = -104
Token unknown - line 14, column 8

Como bien me decía Casimiro tenía un probelma con el nombre de las variables. Como veis he cambiado los nombres, pero sigue dando el mismo error.

Por otra parte, mirando otros SP que tengo definidos en la BB.DD., se me había ocurrido que tal vez podría usar variables de entrada de forma que definiera una vez el SP y simplemente cambiara los valores que me hace falta. Había pensado algo así:

Código SQL [-]
CREATE PROCEDURE SP_PROCESO_FILAS(
         iTabla VARCHAR(100), 
         iColumna VARCHAR(25))
RETURNS (pProceso INTEGER, 
         pFila INTEGER, 
         pCodigo INTEGER, 
         pVotos INTEGER, 
         pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
DECLARE VARIABLE pSelect VARCHAR(250);
etc...

Así al llamar al SP le pasaría el nombvre de la tabal (por ejemplo SYSDBA112042) y el de la columna que me interesa (por ejemplo Votos2), pero cuando he intentado montar el query me da un error. He probado esto:

Código SQL [-]
pSelect = 'SELECT Proceso, Codigo, ' || iColumna || ', Total FROM ' || iTabla || ' INTO :pProceso, :pCodigo, :pVotos, :pTotal';

Pero ¿cómo haría para "meter", si se puede, esa variable en el FOR? He estado mirando documentación pero no he encontrado nada que me ayude.

[Casimiro Notevi]

No sé cuál es la línea 14, pero puede ser esto:

IF (OldProc <> pProceso) THEN
Creo recordar que es
IF (OldProc <> :pProceso) THEN

En cuanto a lo segundo, necesitarías "montar" la cadena para usar "execute statement".

[Angel.Matilla]

Empezado por Casimiro Notevi

No sé cuál es la línea 14, pero puede ser esto:

La línea que da el error es la que he marcado en el mensaje con el comentario; es justo la línea del INTO. Da lo mismo que variable ponga, pero esa es la que da el error.

Empezado por Casimiro Notevi

IF (OldProc <> pProceso) THEN
Creo recordar que es
IF (OldProc <> :pProceso) THEN

Ves, eso no lo he probado. Es lo que tiene conocer mucho mejor el sistema.

Empezado por Casimiro Notevi

En cuanto a lo segundo, necesitarías "montar" la cadena para usar "execute statement".

Si se puede hacer, no me importa tener que montar la cadena para el execute statement, pero es que todas las pruebas que he hecho me dan error.

[Casimiro Notevi]

Lo he probado y funciona bien.

Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE SP_PROCESO_FILAS
RETURNS (pProceso INTEGER, 
         pFila INTEGER, 
         pCodigo INTEGER, 
         pVotos INTEGER, 
         pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
BEGIN
  OldProc = -1;
  pFila = 0;
  FOR SELECT Proceso, codigo, votos2, total
  FROM ABC
  INTO :pProceso,    
       :pCodigo, 
       :pVotos, 
       :pTotal 
  DO
  BEGIN
    IF (OldProc <> pProceso) THEN
    BEGIN
      pFila = 0;
        OldProc = pProceso;
    END
    pFila = pFila + 1;
    SUSPEND;
  END
END ^


SET TERM ; ^

[Angel.Matilla]

Empezado por Casimiro Notevi

Lo he probado y funciona bien.

¿Con una utilidad de FB? Así a mi también me funciona y crea el procedure sin problemas; el error lo da cuando se ejecuta desde código, POr hacer una tontería, porque lo es, he cambiado un trozo de un línea de sitio:

Código SQL [-]
CREATE OR ALTER PROCEDURE SP_PROCESO_FILAS
RETURNS (pProceso INTEGER,
         pFila INTEGER,
         pCodigo INTEGER,
         pVotos INTEGER,
         pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
BEGIN
  OldProc = -1;
  pFila = 0;
  FOR SELECT Proceso, Codigo, Votos2, Total
      FROM SYSDBA182734 INTO
           :pProceso,    // <------ AQUÍ ES DONDE DA EL ERROR
           :pCodigo,
           :pVotos,
           :pTotal
  DO
  BEGIN
    IF (OldProc <> pProceso) THEN
    BEGIN
      pFila = 0;
      OldProc = pProceso;
    END
    pFila = pFila + 1;
    SUSPEND;
  END
END;

En cualquier caso da el error en esa línea justo detrás del INTO y da el error que comentaba al principio: Token unknown. Sumado a que es un tema que no manejo excesivamente bien, me tiene completamente despistado. Es como si esa declaración del uso de la variable tuviera algún error.

[Casimiro Notevi]

Imagino que no has olvidado el

Código SQL [-]
set term ^; 

...
...

set term ;^

[Angel.Matilla]

Empezado por Casimiro Notevi

IF (OldProc <> pProceso) THEN
Creo recordar que es
IF (OldProc <> :pProceso) THEN

Da el mismo error, no llega ni siquiera a esa línea. No obstante, además de en el proyecto, acabo de probar en SQL Manager y con la línea que sugieres no da error. El problema es que no veo donde está el problema: SI uso el mismo código en ambos casos por qué en el programa falla y en SQL Manager no; no acabo de entenderlo.