Prozeduren

UPDATE_KAINFO

Eingabeparameter

Ausgabeparameter

(Es gibt keine Ausgabeparameter)

Beschreibung

Anhand eines Titel wird die Kategorie Information ins Info Feld geschrieben.

Definition

CREATE PROCEDURE UPDATE_KAINFO(
    ATIID INTEGER)
AS
declare variable AINFO VARCHAR(100);
declare variable AKAID INTEGER;
declare variable AKUERZEL VARCHAR(4);
BEGIN
   AINFO = '';
   FOR SELECT KAID, KAKURZBEZ FROM TITEL_KATEGORIE TK, KATEGORIE K 
      WHERE (TK.TKTIID = :ATIID) AND
            (TK.TKKAID = K.KAID)
      INTO :AKAID,:AKUERZEL
    DO BEGIN
      AINFO = (AINFO || '[' || RTRIM(AKUERZEL) || ']'); 
    END

   UPDATE TITEL T SET TIINFO = :AINFO WHERE T.TIID = :ATIID; 
END