CREATE TRIGGER TIB_RBAC_ACCESS_LOG_SEQ BEFORE INSERT
ON RBAC_ACCESS_LOG_SEQ FOR EACH ROW
DECLARE
INTEGRITY_ERROR EXCEPTION;
ERRNO INTEGER;
ERRMSG CHAR(200);
DUMMY INTEGER;
FOUND BOOLEAN;
BEGIN
-- COLUMN ID USES SEQUENCE S_RBAC_ACCESS_LOG_SEQ
SELECT S_RBAC_ACCESS_LOG_SEQ.NEXTVAL INTO :NEW.ID FROM DUAL;
-- ERRORS HANDLING
EXCEPTION
WHEN INTEGRITY_ERROR THEN
RAISE_APPLICATION_ERROR(ERRNO, ERRMSG);
END;