GETUSN.SBR supports two new optional arguments:
xcall GETUSN, usrnam$ {machine$ {,ate'usrnam$ {,ate'machine$}}}
PC'USRNAM$ (S,20) will return the login name of the ATE client, if applicable.
PC'MACHINE$ (S,20) will return the machine name of the ATE client, if applicable.
Note that if the user name has been overridden (via MIAMEX,MX_SETUSRNAM or automatically by an ATSD server when accepting an ATE connection), then USRNAM$ will return the over-ridden name. To force it to return the original name (either the server login name or effective user name), set USRNAM$ to "!" before calling GETUSN.SBR.