StaticObjectsRepo

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

ACCESS StaticObjectsRepo AS TS_StaticObjectsRepo PASCAL CLASS TS_ServerInfo
LOCAL oStaticObjectsRepo AS TS_StaticObjectsRepo
   TSTrace Enter
   IF SELF:IsValidObject
      oStaticObjectsRepo:=SELF:_SuperGlobalData:_StaticObjectsRepo
      IF !LOGIC( _CAST, oStaticObjectsRepo )
         TSTrace Warning "!LOGIC(_CAST,oStaticObjectsRepo)"
      END
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      oStaticObjectsRepo:=NULL_OBJECT
   END
   TSTrace Leave
RETURN oStaticObjectsRepo