EsbOtlFindAttributeMembers

Returns all attribute members having the specified short name.

Syntax

EsbOtlFindAttributeMembers (hOutline, MemberName, DimensionName, Count, MemberArray)
ByVal hOutline       As Long
ByVal MemberName     As String
ByVal DimensionName  As String
      Count          As Integer
      MemberArray    As Variant
ParameterDescription

hOutline

Handle to the outline

MemberName

Attribute short name

DimenisonName

Attribute dimension name (optional)

Count

Number of members returned

MemberArray

Array of base member handles

Notes

Return Value

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

Access

This function requires no special privileges.

Example

Sub ESB_OtlFindAttributeMembers()
        Dim MemberName As String
        Dim DimensionName As String
        Dim hMember() As Long
        Dim Count As Integer
        Dim MbrArr As Variant
        Dim MbrInfo As ESB_MBRINFO_T
        Dim index As Integer
        ghOutline = ESB_OtlOpenOutline
        If ghOutline = vbNull Then Out "ESB_OtlOpenOutline() failed: " & sts: Exit Sub
        ' expecting return of handle to "caffeinated_true"
        MemberName = "true"
        ' "null" by default - dimension name is optional
        DimensionName = ""
        sts = EsbOtlFindAttributeMembers(ghOutline, MemberName, DimensionName, Count, MbrArr)
        ' sts = EsbOtlFindAttributeMembers(ghOutline, MemberName, Count, MbrArr)
        If sts = 0 Then
                Out "EsbOtlFindAttributeMembers passed " & sts
                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 "EsbOtlFindAttributeMembers failed " & sts
                Exit Sub
        End If
End Sub

See Also