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

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

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

Назначение: 
Контроль корректности значения перечислимого свойства  (в контексте множества перечислимых свойств). 
Если значение НЕ корректное - генерируется исключение (ENUM_VAL_NOT_EXIST).

Если входное значение "пустое" (null, пустая_строка), то оно не изменяется.

Используется для контроля данных ( атрибуты численных и перечислимых свойств объектов/процессов ). 

На уровне сервера используется в триггерах  : 
BI_OBJPROPNUMATR , BU_OBJPROPNUMATR , BI_OBJPROPENUMATR , BU_OBJPROPENUMATR 

Тип считается корректным, если тестируемое значение ID "пустое" или существует в таблице  L_PROPENUM_VAL.

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

Нормализация пустого входного значения заключается в том, что если входное значение: NULL или "пустая" строка, то это значение заменяется на значение, которое возвращает хранимая процедура  GET_ID_IS_UNKNOWN  ("0").

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

ALTER PROCEDURE CONTROL_PROP_ENUM_VAL_YES_NULL (ID_IN VARCHAR(40) CHARACTER SET WIN1251) RETURNS (ID_OUT VARCHAR(40) CHARACTER SET WIN1251) AS DECLARE VARIABLE ID_BUF VARCHAR(40); DECLARE VARIABLE ID_EMPTY VARCHAR(40); DECLARE VARIABLE YES_NEXT INTEGER; BEGIN /* Контроль корректности Значения Перечислимого свойства (NULL-допускается) */ ID_OUT = NULL; EXECUTE PROCEDURE GET_ID_IS_UNKNOWN RETURNING_VALUES (:ID_EMPTY); YES_NEXT = 1; IF (:ID_IN IS NULL) THEN YES_NEXT = 0; IF (:ID_IN = '') THEN YES_NEXT = 0; IF (:ID_IN = :ID_EMPTY) THEN YES_NEXT = 0; IF (:YES_NEXT > 0) THEN BEGIN /* На входе - не пустое значение проверяем его существование в справ. переч. св-в */ SELECT ID_THIS FROM L_PROPENUM_LIST WHERE L_PROPENUM_LIST.ID_THIS = :ID_IN INTO :ID_BUF; IF (:ID_BUF = :ID_IN) THEN BEGIN ID_OUT = :ID_IN; END ELSE BEGIN /* Такой ID не существует - инициируем исключение */ EXCEPTION ENUM_VAL_NOT_EXIST; END END ELSE BEGIN /* возвращаем входное значение */ ID_OUT = :ID_IN; END SUSPEND; END

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

http://flexiobjdb.narod.ru