Дата актуальности: 20.06.2009

FlexiObjDB
Объектно-ориентированное на предметную область 
долговременное хранилище информации.

 Хранимая процедура: GET_ID_OBJPROPENUM

Назначение: 
  Возвращает Уникальный Идентификатор Перечислимого свойства объекта (процесса) OBJECTS_PROP_ENUM  в "дереве" объектов/процессов.
Используется для  идентификации сущностей.
Предназначена для использования на уровне ПО .
На уровне сервера используется в триггере BI_OBJPROPENUM (BI_OBJPROPENUM FOR OBJECTS_PROP_ENUM ACTIVE BEFORE INSERT).

ID перечислимого свойства вычисляется с учетом ID- узла  и ID- базы данных.
Используемые триггеры : GEN_OBJROPE_1, GEN_OBJROPE_2, GEN_OBJROPE_3.
Правила вычисления ID перечислимого свойства - см.  здесь .

Входные параметры: нет
Выходные параметры:  уникальный ID- перечислимого свойства (в контексте дерева узлов).

Текст процедуры :

ALTER PROCEDURE GET_ID_OBJPROPENUM RETURNS (ID VARCHAR(40) CHARACTER SET WIN1251) AS DECLARE VARIABLE ID1 INTEGER; DECLARE VARIABLE ID2 INTEGER; DECLARE VARIABLE ID3 INTEGER; DECLARE VARIABLE IDNODE VARCHAR(4); DECLARE VARIABLE IDDB VARCHAR(2); DECLARE VARIABLE DELIMITER_IDNODE VARCHAR(1); DECLARE VARIABLE DELIMITER_IDDB VARCHAR(1); DECLARE VARIABLE DELIMITER_IDOBJ VARCHAR(1); BEGIN /* Вычислить ID_THIS для OBJECTS_PROP_ENUM с учетом ID_NODE и ID_DB */ EXECUTE PROCEDURE GET_DELIMITER_IDNODE RETURNING_VALUES :DELIMITER_IDNODE; EXECUTE PROCEDURE GET_DELIMITER_IDDB RETURNING_VALUES :DELIMITER_IDDB; EXECUTE PROCEDURE GET_DELIMITER_IDOBJ RETURNING_VALUES :DELIMITER_IDOBJ; EXECUTE PROCEDURE GET_ID_THISNODE RETURNING_VALUES :IDNODE; EXECUTE PROCEDURE GET_ID_THISDB RETURNING_VALUES :IDDB; ID = ''; ID2 = GEN_ID(GEN_OBJROPE_2,0); /* текущее значение генератора-2 */ ID3 = GEN_ID(GEN_OBJROPE_3,0); /* текущее значение генератора-3 */ /* ------------------------------------------- */ /* Вычисляем значение ID1 (младшее значение) */ ID1 = GEN_ID(GEN_OBJROPE_1,1); /* ------------------------------------------- */ /* =========================================== */ IF (:ID1>2147483640) THEN BEGIN /* Переполнение младшего значения */ /* ------------------------------------------- */ /* Сбрасываем генератор-1 в 0 */ ID1 =GEN_ID(GEN_OBJROPE_1,-GEN_ID(GEN_OBJROPE_1,0)); /* ------------------------------------------- */ /* ------------------------------------------- */ /* Вычисляем значение ID2 (среднее значение) */ ID2 = GEN_ID(GEN_OBJROPE_2,1); /* ------------------------------------------- */ END /* =========================================== */ /* =========================================== */ IF (:ID2>2147483640) THEN BEGIN /* Переполнение среднего значения */ /* ------------------------------------------- */ /* Сбрасываем генератор-2 в 0 */ ID2 = GEN_ID(GEN_OBJROPE_2,-GEN_ID(GEN_OBJROPE_2,0)); /* ------------------------------------------- */ /* ------------------------------------------- */ /* Вычисляем значение ID3 (старшее значение) */ ID3 = GEN_ID(GEN_OBJROPE_3,1); /* ------------------------------------------- */ END /* =========================================== */ /* ------------------------------------------- */ /* Вычисляем значение ID_THIS */ ID = :IDNODE || :DELIMITER_IDNODE || :IDDB || :DELIMITER_IDDB || :ID3 || DELIMITER_IDOBJ || :ID2 || DELIMITER_IDOBJ || :ID1; /* ------------------------------------------- */ SUSPEND; END

Иллюстрирующая блок-схема приведена ниже  (может отличаться от текущей реализации) :

______________________________________
(c) Sergey Popov,  респ.Коми,  г.Усинск,(2009)

http://flexiobjdb.narod.ru