EsbOtlQueryAttributes

Queries member information for a given attribute member or dimension.

Syntax

EsbOtlQueryAttributes (hOutline, AttrQuery, Count, MemberArray)
ByVal hOutline    As Long
      AttrQuery   As ESB_ATTRIBUTEQUERY_T
      Count       As Long
      MemberArray As Variant

Parameter	Description
hOutline	Handle to the outline
AttrQuery	Structure that defines the query
Count	Number of member handles returned
MemberArray	Array of member handles returned

Notes

Before you call this function, call EsbOpenOutlineQuery() to open the outline in query mode.

Access

This function requires no special privileges.

Example

        Sub ESB_OtlQueryAttributes()
        Dim OutAttrInfo As ESB_ATTRIBUTEINFO_T
        Dim InAttrQuery As ESB_ATTRIBUTEQUERY_T
        Dim MbrInfo As ESB_MBRINFO_T
        Dim index As Integer
        Dim test As Integer
        Dim Count As Long
        Dim sts As Long
        Dim Dummy As String
        Dim MbrName As String
        Dim attribdtvar As Variant
        Dim OutMemberArray As Variant
        InAttrQuery.InputMember = "Product"
        InAttrQuery.InputMemberType = ESB_STANDARD_DIMENSION
        InAttrQuery.OutputMemberType = ESB_ATTRIBUTE_DIMENSION
        InAttrQuery.Operation = ESB_ALL
        InAttrQuery.Attribute = ""
        sts = EsbOtlQueryAttributes(ghOutline, InAttrQuery, Count, OutMemberArray)
        If sts = 0 Then
                Out "attribute query Count is : " & Count
                Out "EsbOtlGetMemberInfo passed"
                For index = 0 To Count - 1
                        sts = EsbOtlGetMemberInfo(ghOutline, OutMemberArray(index), MbrInfo)
                        If sts = 0 Then
                                Out "MbrName   : " & MbrInfo.szMember
                        Else
                        Out "EsbOtlGetMemberInfo Failed: " & sts
                        End If
                Next index
        Else
                Out "EsbOtlQueryAttributes failed: " & sts
        End If
End Sub