Prozeduren

SE_ENTPLANEN_STD

Eingabeparameter

Ausgabeparameter

Beschreibung

Damit entplant das DU01 die Sendeelemente für die angegebene Stunde.

Definition

CREATE PROCEDURE SE_ENTPLANEN_STD(
    SNID INTEGER)
RETURNS (
    UPDATED INTEGER)
AS
  DECLARE VARIABLE SeId         INTEGER;
  DECLARE VARIABLE IsInactive   SMALLINT;
BEGIN
  Updated = 0;
  /* Pruefen ob Trigger aktiv ist */
  SELECT RDB$TRIGGER_INACTIVE FROM RDB$TRIGGERS
  WHERE RDB$TRIGGER_NAME = 'TITEL_DEL_SETIID'
  INTO :IsInactive;
  /* SESTATUS auf 5 (entplant) setzen */
  FOR SELECT SEID FROM SENDEELEMENTE
      WHERE (SESNID = :SnID) AND (SESTATUS <> 5)
      ORDER BY SEPOSITION ASCENDING
      INTO :SeId
  DO BEGIN
     DELETE FROM UNTERTITEL WHERE (UTSEID = :SeId) AND (UTNUTZUNGSART = 0);
     IF (IsInactive = 1) THEN 
     BEGIN
       UPDATE SENDEELEMENTE SET SESTATUS = 5, SETIID = NULL
       WHERE (SEID = :SeId);
       Updated = Updated + 1;
     END
     ELSE BEGIN
       UPDATE SENDEELEMENTE SET SESTATUS = 5
       WHERE (SEID = :SeId);
       Updated = Updated + 1;
     END
  END
END