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

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

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

Назначение: 
  Поддержка системного протокола событий на уровне таблиц системы (обслуживание таблицы SYS_EVENTS_IN_TABLES)

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

ALTER PROCEDURE INSERT_SYSEVENTSINTABLES (ID_TABLE INTEGER, ID_THIS VARCHAR(40) CHARACTER SET WIN1251, WHAT_IS_IT VARCHAR(3) CHARACTER SET WIN1251) AS DECLARE VARIABLE YES INTEGER; DECLARE VARIABLE YES2 INTEGER; DECLARE VARIABLE C12 VARCHAR(12) CHARACTER SET WIN1251; BEGIN /* write to LOG about events in table */ /* запись информации о событии на уровне таблицы базы данных в системный журнал */ /* идентификаторы таблиц ID_TABLE хранятся в таблице SYS_TABLES_LIST */ /* ID_THIS - уникальный ID строки таблицы, где было событие INSERT, UPDATE, DELETE */ /* WHAT_IS_IT - тип события: INS, UPD, DEL */ YES = 1; IF (:ID_TABLE IS NULL) THEN ID_TABLE = 0; IF (:ID_THIS IS NULL) THEN ID_THIS = ''; IF (:WHAT_IS_IT IS NULL) THEN WHAT_IS_IT = ''; IF (:ID_TABLE<=0) THEN YES = 0; IF (:ID_THIS = '') THEN YES = 0; IF (:WHAT_IS_IT = '') THEN YES = 0; IF (:YES>0) THEN BEGIN YES = 0; YES2 = 0; /* ================================================ */ /* detect: can this */ /* определяем, разрешено ли вести LOG вообще */ SELECT CONST_VALUE FROM SYS_CONST_LIST WHERE UPPER(SYS_CONST_LIST.MNEMO_CODE) = UPPER('Yes_LOG_for_Events_in_Tables') INTO :C12; IF (:C12 IS NULL) THEN C12 = ''; IF (:C12 = '') THEN C12 = '0'; IF (CAST(:C12 AS INTEGER)>0) THEN BEGIN YES = 1; END /* ================================================ */ IF (:YES>0) THEN BEGIN /* ================================================ */ /* detect: can this for table */ /* определяем, нужно ли вести LOG избирательно (для каждой таблицы индивидуально) ? */ SELECT CONST_VALUE FROM SYS_CONST_LIST WHERE UPPER(SYS_CONST_LIST.MNEMO_CODE) = UPPER('Yes_LOG_for_Events_in_Tables_I') INTO :C12; IF (:C12 IS NULL) THEN C12 = ''; IF (:C12 = '') THEN C12 = '0'; IF (CAST(:C12 AS INTEGER)>0) THEN BEGIN YES2 = 1; END /* ================================================ */ END IF (:YES2>0) THEN BEGIN /* ================================================ */ /* Разрешено вести LOG избирательно. Проверяем, разрешено ли именно для этой таблицы ? */ SELECT YES_SYS_EVENT FROM SYS_TABLES_LIST WHERE SYS_TABLES_LIST.ID_THIS = :ID_TABLE INTO :YES2; IF (:YES2 IS NULL) THEN YES2 = 0; IF (:YES2 <=0 ) THEN YES = 0; /* Для данной таблицы - запрещено ! */ /* ================================================ */ END IF (:YES>0) THEN BEGIN /* write info */ /* записываем информацию в системный журнал событий */ INSERT INTO SYS_EVENTS_IN_TABLES (ID_THIS,DATE_EVENT,IDTABLE,IDTHIS,WHAT) VALUES (GEN_ID(GEN_EVENTINTABLESLOG,1), "NOW", :ID_TABLE, :ID_THIS, :WHAT_IS_IT); END END END

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

http://flexiobjdb.narod.ru