INIT

(Available in 01 TS COM - TS_COM_StaticObjectsRepo)

Source

METHOD INIT( ) CLASS TS_StaticObjectsRepo
   TSTrace Enter CREATE
   IF LOGIC( _CAST, SELF:_SORData )
      TSTrace Warning "LOGIC(_CAST,SELF:_SORData)"
   ELSE
      SELF:_SORData:=TS_MemAlloc( _SIZEOF( _TS_SORData ), TRUE  ; ...
     ... )
      IF LOGIC( _CAST, SELF:_SORData )
         SELF:_SORData.Allocated:=0U
         SELF:_SORData.Max:=_TS_SOR_MAX
         SELF:_SORData.Registered:=FALSE
         SELF:_SORData.Used:=0U
      ELSE
         _TS_ModuleInternalErrors( "TS_MemAlloc(_SizeOf(_TS_SORData),TRUE)==NULL_PTR" ; ...
        ... , __ENTITY__, __LINE__, ES_CATASTROPHIC )
      END
   END
   TSTrace Leave
RETURN SELF