AOS server name + AX 2012

The following code obtains the AOS server name for the current session:

static void getServerNameForCurrentSession(Args _args)  

 {  

   sysClientSessions cliSessions;  

   sysServerSessions svrSessions;  

   ;  

   select svrSessions  

     exists join cliSessions  

       where cliSessions.SessionId == sessionID()  

         && cliSessions.ServerID == svrSessions.ServerId;  

   info(substr(svrSessions.AOSId, 1, strfind(svrSessions.AOSId, '@', 1, strlen(svrSessions.AOSId))-1));  

 }