SE_ENTPLANEN

Prozeduren

SE_ENTPLANEN

Eingabeparameter

Parameter	Typ	Beschreibung
DATUM	DATE	Hier gibt man das Datum an, bis zu welchem Tag entplant werden soll.

Ausgabeparameter

Parameter	Typ	Beschreibung
UPDATED	INTEGER	Damit erhält man die Anzahl entplanter Elemente zurück.

Beschreibung

Damit entplant das DU01 die Sendeelemente.

Definition

CREATE PROCEDURE SE_ENTPLANEN(
    DATUM DATE)
RETURNS (
    UPDATED INTEGER)
AS
  DECLARE VARIABLE SeId         INTEGER;
  DECLARE VARIABLE IsInactive   SMALLINT;
BEGIN
  /* Kann lange dauern und daher sollte    */
  /* die SE_ENTPLANEN_STD genommen werden! */
  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 (SEDATUM < :Datum) 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