Кто как решал задачу определения архитектуры сервера v2.5 (Classic/Superserver) из ХП?

Не нашел в MON таблицах что-либо, непосредственно указывающее на архитектуру и решил сделать отдельную ХП, но для формирования connString, опять же, необходим номера порта сервера текущего клиентского подключения.

EXECUTE STATEMENT ('SELECT Iif(MON$SERVER_PID = MON$REMOTE_PID, ''SS'', ''CS'') FROM MON$ATTACHMENTS WHERE MON$ATTACHMENT_ID = CURRENT_CONNECTION')
  AS USER 'SYSDBA'
  PASSWORD 'masterke'
  ON EXTERNAL DATA SOURCE :connString
  INTO: MODE;

Кто как решал подобную задачу?