LockedServers

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

ACCESS LockedServers AS LONGINT PASCAL CLASS TS_ServerInfo
LOCAL liCurLockedServers AS LONGINT
   TSTrace Enter
   IF SELF:IsValidObject
      liCurLockedServers:=LONGINT( SELF:_COMGlobalData:_ServerInfoLockedServers  ; ...
     ... )
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      liCurLockedServers:=0L
   END
   TSTrace Leave
RETURN liCurLockedServers