CREATE TABLE SRV_PROTOCOL (
    BEGIN_TIME  TIMESTAMP NOT NULL,
    END_TIME    TIMESTAMP NOT NULL,
    PORT        SMALLINT DEFAULT 0,
    OBJ_NAME    VARCHAR(32) NOT NULL,
    ERROR_CODE  INTEGER,
    SRVUPDTIME  TIMESTAMP DEFAULT current_timestamp
);

ALTER TABLE SRV_PROTOCOL ADD CONSTRAINT PK_SRV_PROTOCOL PRIMARY KEY (BEGIN_TIME, END_TIME, OBJ_NAME);

CREATE INDEX SRV_PROTOCOL_IDX1 ON SRV_PROTOCOL (BEGIN_TIME, OBJ_NAME);
CREATE INDEX SRV_PROTOCOL_IDX2 ON SRV_PROTOCOL (OBJ_NAME, BEGIN_TIME);
CREATE INDEX SRV_PROTOCOL_IDX3 ON SRV_PROTOCOL (ERROR_CODE, BEGIN_TIME, OBJ_NAME);
CREATE UNIQUE INDEX SRV_PROTOCOL_IDX4 ON SRV_PROTOCOL (BEGIN_TIME, END_TIME, OBJ_NAME);

SET TERM ^ ;

/* Trigger: SRV_PROTOCOL_BIU10 */
CREATE OR ALTER TRIGGER SRV_PROTOCOL_BIU10 FOR SRV_PROTOCOL
ACTIVE BEFORE INSERT OR UPDATE POSITION 10
AS
DECLARE VARIABLE ZEITRAUM FLOAT;
BEGIN
  ZEITRAUM = NULL;
  SELECT COALESCE(MAX(T1.VAL), 35)
  FROM PARAM T1
  WHERE T1.NAME = 'DEL_ALTDATEN_ZEITRAUM'
  INTO :ZEITRAUM
  ;
  IF (ZEITRAUM IS NOT NULL) THEN
    DELETE
    FROM SRV_PROTOCOL T1
    WHERE T1.BEGIN_TIME < CURRENT_DATE -  :ZEITRAUM
    ;
END
^
SET TERM ; ^