INIT

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

METHOD INIT( usymNameSym, uoCOMGlobalData ) CLASS TS_ServerInfo
LOCAL cValTypeList AS STRING
   TSTrace Enter CREATE
   IF LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_ININIT  ; ...
  ... ) )
      IF IsObject( uoCOMGlobalData ) .AND. IsInstanceOf( uoCOMGlobalData, #_TS_COMGlobalData  ; ...
     ... )
         SELF:_COMGlobalData:=_TS_ModuleGetCOMGlobalData( )
         SELF:_SuperGlobalData:=_TS_SuperGlobalDataGet( )
         IF SELF:_COMGlobalData<>NULL_OBJECT .AND. SELF:_SuperGlobalData ; ...
        ... <>NULL_OBJECT
            InterlockedIncrement( SELF:_COMGlobalData:_ServerInfoInstanceCount  ; ...
           ... )
            SELF:_ObjectStat1+=TS_OBJSTAT1_COUNTVALUE
            cValTypeList:=TS_AccessTypeList( usymNameSym )
            IF cValTypeList=="U" .OR. cValTypeList=="#"
               SUPER:INIT( usymNameSym )
            ELSE
               TSTrace Warning "Invalid parameter(s), Expected 'U|#', Found '"+cValTypeList ; ...
              ... +"'"
               SELF:InvalidateObject( )
            END
            SELF:_ObjectStat1-=TS_OBJSTAT1_COUNTVALUE
            IF _AND( SELF:_ObjectStat1, TS_OBJSTAT1_NEWTEST ) ; ...
           ... ==TS_OBJSTAT1_NEEDNEW
               SELF:_ObjectStat1:=_AND( SELF:_ObjectStat1 ; ...
              ... , _NOT( TS_OBJSTAT1_NEEDNEW ) )
               IF SELF:IsValidObject
                  SELF:NEW( usymNameSym )
               ELSE
                  TSTrace Warning TS_TEXT_GEN_CAN_NOT_INITIALIZE
                  SELF:InvalidateObject( )
               END
            END