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