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.Items[ B ]
               IF LOGIC( _CAST, pSORDataC )
                  FOR C:=1U UPTO _TS_SOR_STEP
                     pSORDataD:=pSORDataC.Items[ C ]
                     IF LOGIC( _CAST, pSORDataD )
                        FOR D:=1U UPTO _TS_SOR_STEP
                           IF LOGIC( _CAST, pSORDataD.Items[ D ] )
                              oIUnknown:=OBJECT( _CAST, pSORDataD.Items ; ...
                             ... [ D ] )
                              oIUnknown:AddRef( )
                              AAdd( aItems, oIUnknown )
                              oIUnknown:=NULL_OBJECT
                           END
                        NEXT
                     END
                  NEXT
               END
            NEXT
         END
      NEXT
   END
   TSTrace Leave
RETURN aItems