EsbOtlGetAssociatedAttributes

Returns all attribute members that are associated with a base member or dimension.

Syntax

EsbOtlGetAssociatedAttributes (hOutline, Member, Count, MemberArray)
ByVal hOutline    As Long
ByVal Member      As Long
      Count       As Integer
      MemberArray As Variant

Parameter	Description
hOutline	Handle to the outline
Member	Handle to the base member or base dimension
Count	Number of attribute members returned
MemberArray	Array of attribute member handles

Return Value

Returns STS = 0 when successful. Otherwise, returns an error code.

Access

This function requires no special privileges.

Example

Sub ESB_OtlGetAssociatedAttributes()
    Dim hMember As Long
    Dim Count As Integer                        '*** Return of number of attributes
    Dim MbrArr As Variant                       '*** Returns member array in this
    Dim MbrInfo As ESB_MBRINFO_T        '*** Returned MbrInfo structure
    Dim index As Integer
    eraser
    hMember = ESB_OtlFindMember("Enter target member: ")
    If hMember = vbNull Then Out "ESB_OtlGetAssociatedAttributes() failed.": Exit Sub
    sts = EsbOtlGetAssociatedAttributes(ghOutline, hMember, Count, MbrArr)
    If sts = 0 Then
        Out "Count is : " & Count
        For index = 0 To (Count - 1)
            sts = EsbOtlGetMemberInfo(ghOutline, MbrArr(index), MbrInfo)
            Out "Member Name : " & MbrInfo.szMember
        Next index
    Else
        Out "EsbOtlGetAttributeInfo failed" & sts: Exit Sub
    End If
End Sub