Items
(Available in 01 TS COM - TS_COM_StaticObjectsRepo)
Source
METHOD Items( ) AS ARRAY PASCAL CLASS TS_StaticObjectsRepo
LOCAL pSORDataA AS _TS_SORData
LOCAL pSORDataB AS _TS_SORData
LOCAL pSORDataC AS _TS_SORData
LOCAL pSORDataD AS _TS_SORData
LOCAL oIUnknown AS TS_IUnknown
LOCAL aItems AS ARRAY
LOCAL A AS DWORD
LOCAL B AS DWORD
LOCAL C AS DWORD
LOCAL D AS DWORD
TSTrace Enter
aItems:=ArrayCreate( 0U )
pSORDataA:=SELF:_SORData
IF LOGIC( _CAST, pSORDataA )
FOR A:=1U UPTO _TS_SOR_STEP
pSORDataB:=pSORDataA.Items[ A ]
IF LOGIC( _CAST, pSORDataB )
FOR B:=1U UPTO _TS_SOR_STEP
pSORDataC:=pSORDataB