EsbOtlGetDimensionUserAttributes() returns the user defined attributes used in the specified dimension.
EsbOtlGetDimensionUserAttributes (hOutline, pPredicate, pCounts)
ByVal hOutline As Long pPredicate As ESB_PREDICATE_T pCounts As ESB_MBRCOUNTS_T
hOutline | Essbase outline handle. This must have been returned from EsbOtlOpenOutlineQuery(). |
pPredicate | Structure defining the query. The fields of this structure are used as follows:
ulQuery
szDimension |
pCounts | Structure defining information about counts It contains the following fields: ulStart Starting number to return.
ulMaxCount
ulTotalCount
pulReturnCount |
The return value is zero if the function was successful.
Declare Function EsbOtlGetDimensionUserAttributes Lib "ESBOTLN" (ByVal hOutline As Long, pPredicate As ESB_PREDICATE_T, pCounts As ESB_MBRCOUNTS_T) As Long Sub ESB_OtlQueryMembers() Dim sts As Long Dim hOutline As Long Dim AttrName As String * ESB_MBRNAMELEN Dim Predicate As ESB_PREDICATE_T Dim Counts As ESB_MBRCOUNTS_T Dim Access As Integer Dim AppName As String Dim DbName As String AppName = "Sample" DbName = "Basic" sts = EsbOtlOpenOutlineQuery(hCtx, Object, hOutline) If sts = 0 Then sts = EsbOtlOpenOutlineQuery(hCtx, Object, hOutline) Predicate.ulQuery = ESB_DIMUSERATTRIBUTES_T Predicate.pszDimension = "Product" Counts.ulStart = 0 Counts.ulMaxCount = 10 If sts = 0 Then sts = EsbOtlGetDimensionUserAttributes(hOutline, Predicate, Counts) If sts = 0 And Counts.ulReturnCount <> 0 Then For n% = 1 To Counts.ulReturnCount sts = EsbGetNextItem(hCtx, ESB_MBRNAME_TYPE, ByVal AttrName) MsgBox AttrName Next End If End If End If End Sub
EsbGetNextItem()
EsbOtlOpenOutlineQuery()
EsbOtlQueryMembers()
EsbOtlQueryMembersByName()