EsbOtlGetAttributeInfo

Returns attribute information for a given attribute member or dimension.

Syntax

EsbOtlGetAttributeInfo (hOutline, Member, AttrInfo)
ByVal hOutline As Long
ByVal Member   As Long
      AttrInfo As ESB_ATTRIBUTEINFO_T

Parameter	Description
hOutline	Handle to the outline
Member	Handle to the attribute member or dimension
AttrInfo	Attribute information

Notes

This function is similar to EsbGetAttributeInfo().

Return Value

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

Access

This function requires no special privileges.

Example

Sub ESB_OtlGetAttributeInfo()
        ' NOTE: 'Out' is a sub to print the output within quotes to a listbox or text box
Dim sts As Long
Dim OutAttrInfo As ESB_ATTRIBUTEINFO_T
Dim MbrName As String
Dim hCtx as long
        MbrName = InputBox("Enter Member Name")
        sts = EsbGetAttributeInfo(hCtx, MbrName, OutAttrInfo)
        If sts = 0 Then
                Select Case VarType(OutAttrInfo.Attribute)
                Case vbDouble
                        Out "Data Type    : Numeric(Double)"
                        Out "Data Value   : " & OutAttrInfo.Attribute
                        Out ""
                Case vbBoolean
                        Out "Data Type    : Boolean"
                        Out "Data Value   : " & OutAttrInfo.Attribute
                        Out ""
                Case vbDate
                        Out "Data Type    : Date"
                        Out "Data Value   : " & OutAttrInfo.DimName
                        Out ""
                Case vbString
                        Out "Data Type    : String"
                        Out "Data Value   : " & OutAttrInfo.Attribute
                        Out ""
                End Select
        Else
                Out "ESB_OtlGetAttributeInfo failed" & sts
                Exit Sub
        End If
End Sub