Locate

(Available in 01 TS COM - TS_COM_StaticObjectsRepo)

Source

METHOD Locate( oObject AS OBJECT ) AS PTR PASCAL CLASS TS_StaticObjectsRepo
LOCAL dwLevel AS DWORD
LOCAL dwSORID AS DWORD
LOCAL hSORID AS PTR
   TSTrace Enter
   IF LOGIC( _CAST, SELF:_SORData )
      _TS_DynLock( PSZ( _CAST, __ENTITY__ ) )
      _TS_SORLocate( PTR( _CAST, oObject ), SELF:_SORData, @dwLevel ; ...
     ... , @dwSORID )
      _TS_DynUnLock( PSZ( _CAST, __ENTITY__ ) )
   ELSE
      TSTrace Warning "!LOGIC(_CAST,SELF:_SORData)"
      dwSORID:=0U
   END
   hSORID:=PTR( _CAST, dwSORID )
   TSTrace Leave
RETURN hSORID