TM1 Forum

Code: Select all

Sub ElementList()
'***************************************************************
'Description:
'            This procedure retrieves Dimension Elements and Name Attribute
'Parameters:
'            None
'Return:
'            None
'***************************************************************
    Const FIXED_STR_LENGTH = 30
    
    Dim hUser As Long, hServer As Long
    Dim sDimensionName As String, sAttribute As String
   
    Dim voDim As Long
    Dim voDim1 As Long
    Dim voTemp As Long
    Dim voTemp1 As Long
    Dim voTemp2 As Long
    Dim voTemp3 As Long
    Dim voTemp4 As Long
    Dim voEle As Long
    Dim hPool As Long
    Dim ibOK As Integer
    
    Dim viEleCount As Long
    Dim iEleCount As Integer
    Dim iCubeCount As Integer
    Dim pEleHandles As Long
    Dim iEle As Integer
    Dim pEleNames As Long
    Dim pEleAttr As Long
    Dim sEleName As String * FIXED_STR_LENGTH
    Dim iTemp As Integer
    Dim sAttributeName As String * FIXED_STR_LENGTH
    
    
    hUser = TM1_API2HAN
    hServer = TM1SystemServerHandle(hUser, "ph_bpm_test")
    sDimensionName = "PayEmployee"
    sAttribute = "Name"
    
    ' Create General Pool
    hPool = TM1ValPoolCreate(hUser)
    ' Locate Dimension
    voDim = TM1ObjectListHandleByNameGet(hPool, hServer, TM1ServerDimensions(), TM1ValString(hPool, sDimensionName, 0))
    
    ' Determine the number of elements in the dimension
    viEleCount = TM1ObjectListCountGet(hPool, voDim, TM1DimensionElements())
        iEleCount = TM1ValIndexGet(hUser, viEleCount)
        
    ' Create a pool for the element handles
    pEleHandles = TM1ValPoolCreate(hUser)
    
    ' Retrieve each element handle in succession, store in value pool
    For iEle = 1 To iEleCount
        voTemp = TM1ObjectListHandleByIndexGet(pEleHandles, voDim, TM1DimensionElements(), TM1ValIndex(hPool, iEle))
    Next iEle

    ' Create pools for element name and attribute
    pEleNames = TM1ValPoolCreate(hUser)
    pEleAttr = TM1ValPoolCreate(hUser)

    ' Look at each element, if there are no read rights skip
    ' otherwise retrieve name and attribute
    For iEle = 0 To iEleCount - 1
        voEle = TM1ValPoolGet(pEleHandles, iEle)
        If TM1ValObjectCanRead(hUser, voEle) <> 0 Then
            voTemp2 = TM1ObjectPropertyGet(pEleNames, voEle, TM1ObjectName())

            voTemp1 = TM1ObjectAttributeValueGet(pEleAttr, voEle, TM1ValString(hPool, sAttribute, 0))

        End If
     Next iEle


    ' Output Dimension Elements and Names
    iTemp = TM1ValPoolCount(pEleNames)
    For iEle = 0 To iTemp - 1
        voTemp3 = TM1ValPoolGet(pEleNames, iEle)
        
        TM1ValStringGet_VB hUser, voTemp3, sEleName, FIXED_STR_LENGTH
        
        voTemp4 = TM1ValPoolGet(pEleAttr, iEle)
        
'Code lockes up at this line right here.********************************************************
        TM1ValStringGet_VB hUser, voTemp4, sAttributeName, FIXED_STR_LENGTH

        Debug.Print "Element: " & sEleName & " Name: " & sAttributeName
        sEleName = ""
    Next iEle

        ' Destroy all pools
    TM1ValPoolDestroy (hPool)
    TM1ValPoolDestroy (pEleHandles)
    TM1ValPoolDestroy (pEleNames)
    TM1ValPoolDestroy (pEleAttr)
    Exit Sub
DONE:
        ' Destroy all pools
    TM1ValPoolDestroy (hPool)
    TM1ValPoolDestroy (pEleHandles)
    TM1ValPoolDestroy (pEleNames)
    TM1ValPoolDestroy (pEleAttr)

End Sub