Error al definir un SP

[Casimiro Noteví]

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 Noteví]

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 Noteví]

Imagino que no has olvidado el

Código SQL [-]
set term ^; 

...
...

set term ;^

[Angel.Matilla]

Empezado por Casimiro Notevi

Imagino que no has olvidado el

Código SQL [-]
set term ^; 

...
...

set term ;^

Pero haciéndolo por código, desde el programa, no hace falta ¿o sí? Porque en otros procedures que defino así no hace falta los set term.

[Casimiro Noteví]

Que yo sepa, los SP y los triggers lo necesitan. Yo siempre lo he hecho así, no he probado a no ponerlo.
Y si usas ibexpert, sql manager, etc. lo hacen automáticamente ellos, aunque tú no lo pongas.

[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.