Sorry, ich hatte vergessen, dass Funktionen auch einer Variablen zugewiesen werden müssen.
So sollte es nun funktionieren:
SQL-Code:
COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
/* Stored procedures */
ALTER PROCEDURE RESETRUNS
(
EVENTID INTEGER
)
AS
DECLARE VARIABLE NewGen INT;
DECLARE VARIABLE NEWID INTEGER;
BEGIN
DELETE FROM RUNS WHERE (RUN_EVENT =:EVENTID);
SELECT MAX(RUN_ID)+1 FROM RUNS INTO :NewGen ;
/* SET GENERATOR GEN_RUN TO :NewGen; */
NEWID = GEN_ID (GEN_RUNS, -(GEN_ID (GEN_RUNS, 0) - :NewGen));
;
END
^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;