Destroy
(Available in 01 TS COM - TS_COM_StaticObjectsRepo)
Source
METHOD Destroy( ) CLASS TS_StaticObjectsRepo
LOCAL pSORDataA AS _TS_SORData
LOCAL pSORDataB AS _TS_SORData
LOCAL pSORDataC AS _TS_SORData
LOCAL pSORDataD AS _TS_SORData
LOCAL A AS DWORD
LOCAL B AS DWORD
LOCAL C AS DWORD
LOCAL D AS DWORD
TSTrace Enter
pSORDataA:=SELF:_SORData
SELF:_SORData:=NULL_PTR
IF LOGIC( _CAST, pSORDataA )
IF LOGIC( _CAST, pSORDataA.Used )
TSTrace Error "LOGIC(_CAST,pSORDataA.Used)"
END
FOR A:=1U UPTO _TS_SOR_STEP
pSORDataB:=pSORDataA.Items[ A ]
IF LOGIC( _CAST, pSORDataB )
IF LOGIC( _CAST, pSORDataB.Used