FA_ID_FOLDERPATH

Prozeduren

FA_ID_FOLDERPATH

Eingabeparameter

Parameter	Typ	Beschreibung
FAID	INTEGER	Id des Faches, für welches der Pfad ermittelt werden soll.
PATHDELIM	CHAR(1)	Bestimmt welches Trennzeichen für die Bildung des Fachpfades verwendet werden soll.

Ausgabeparameter

Parameter	Typ	Beschreibung
PATH	VARCHAR(254)	Rückgabewert: vollqualifizierter FAID-PFAD

Beschreibung

Gibt den vollqualifizierten FAID-Pfad von einem Fach zurück.
Im Gegensatz zur Procedure FA_ID_FOLDERPATH wird der Pfad aus den FAIDs zusammengesetzt und nicht aus den Fachnamen.
Ein weiterer Unterschied besteht darin, dass alle Pfade mitsamt der Root-FAID zurückgegeben werden.
Der Pfad Delimiter kann als Parameter übergeben werden. Beispiel eines Rückgabewerts : "0.1004.2003".
Root-FAID Bedeutung: 0: EventBase, -1: NewsRoom, -2: WebBase.

Definition

CREATE PROCEDURE FA_ID_FOLDERPATH(
    FAID INTEGER,
    PATHDELIM CHAR(1))
RETURNS (
    PATH VARCHAR(254))
AS
declare variable FANAME char(30);
declare variable NEXTFAID char(30);
BEGIN
  PATH = '';
  NEXTFAID = -100;
  FOR
    SELECT FAIDUEBER, FAID FROM FAECHER
    WHERE (FAID = :FAID)
    INTO :NEXTFAID, :FANAME
  DO
  BEGIN
    EXECUTE PROCEDURE FA_ID_FOLDERPATH(NEXTFAID, PATHDELIM)
    RETURNING_VALUES :PATH;
    IF (PATH = '') THEN
      PATH = FANAME;
    ELSE
      PATH = RTRIM255(PATH) || PATHDELIM || FANAME;
  END
  IF ((NEXTFAID = -100)) THEN
  BEGIN
    PATH = FAID;
  END
  SUSPEND;
END