LockedServersIncrement

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

METHOD LockedServersIncrement( ) AS LONGINT PASCAL CLASS TS_ServerInfo
LOCAL liCurLockedServers AS LONGINT
   TSTrace Enter
   IF SELF:IsValidObject
      InterlockedIncrement( SELF:_COMGlobalData:_ServerInfoLockedServers  ; ...
     ... )
      liCurLockedServers:=LONGINT( SELF:_COMGlobalData:_ServerInfoLockedServers  ; ...
     ... )
//    TS_ShowLockedServers()
      IF LOGIC( _CAST, SELF:_COMGlobalData:_ShowLockedServers  ; ...
     ... )
         TSTrace Shw liCurLockedServers
      END
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      liCurLockedServers:=0L
   END
   TSTrace Leave
RETURN liCurLockedServers