CREATE PROCEDURE sp_OnLogin ()
BEGIN
   // Проверяем на присутствие уже залогиненных пользователей 
  IF ( SELECT Count(*) 
        FROM sa_Conn_Info()
        WHERE DBNumber = Connection_Property('DBNumber') AND
              UserID = User_Name() ) >  1 
  THEN
    RAISERROR  20000  'Такой пользователь уже подключен';
    RETURN;
  END IF;

   // Вызываем стандартную инициализацию сервера 
  CALL sp_login_environment ();

   // Инициализируем глобальные переменные и еще что нибудь делаем 
   // ... 
END;

 // Устанавливаем процедуру на обработку каждого подключения 
SET OPTION PUBLIC.LOGIN_PROCEDURE = 'DBA.sp_OnLogin';

CREATE PROCEDURE sp_OnLogin ()
BEGIN
  DECLARE @Conn_id bigint;

  DECLARE LOCAL TEMPORARY TABLE #Users (
    UserName varchar( 128 ) NOT NULL PRIMARY KEY
  );

   // Проверяем на присутствие уже залогиненных пользователей 
  SET @Conn_id = NEXT_CONNECTION(NULL);
  WHILE @Conn_id IS NOT NULL LOOP
    INSERT INTO #Users(UserName)
    VALUES(Connection_Property('UserId', @Conn_id));

    SET @Conn_id = NEXT_CONNECTION(@Conn_id);
  END LOOP;

   // Вызываем стандартную инициализацию сервера 
  CALL sp_login_environment ();

   // Инициализируем глобальные переменные и еще что нибудь делаем 
   // ... 
EXCEPTION
  WHEN OTHERS THEN
    RAISERROR  20000  'Такой пользователь уже подключен';
END;