Generator zurücksetzen aus StoredProcedure

[TBx]

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;