Prozeduren

UPDATE_BLOB_STATUS

Eingabeparameter

Ausgabeparameter

(Es gibt keine Ausgabeparameter)

Beschreibung

Aktualisiert den Status der Titel anhand eines BLOB Feld bei Meldungen, Jingle- oder Regio-Paket.

Definition

CREATE PROCEDURE UPDATE_BLOB_STATUS(
    BLOBFELD BLOB SUB_TYPE 1 SEGMENT SIZE 80)
AS
  DECLARE VARIABLE ActTiId     INTEGER;
  DECLARE VARIABLE BlobText    VARCHAR(8190);
  DECLARE VARIABLE rIndex      INTEGER;
  DECLARE VARIABLE rMax        INTEGER;
BEGIN
  IF (BlobFeld IS NOT NULL) THEN BEGIN
    rIndex = 1;
    rMax = f_BlobLineCount(BlobFeld);
    WHILE (rIndex <= rMax) DO BEGIN
      BlobText = f_BlobLine(BlobFeld, rIndex);
      IF ((BlobText IS NOT NULL) AND (BlobText != '')) THEN BEGIN
        ActTiId = CAST(f_WordNum(BlobText, 1, ';', 0) AS INTEGER);
        EXECUTE PROCEDURE TI_UPDATE_STATUS(ActTiId, 32767);
        /* Wenn es beim CAST eine Exception gibt, wird dies hier abgefangen */
        WHEN SQLCODE -413 DO
          ActTiId = -1;
      END
      rIndex = rIndex + 1;
    END
  END
END