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()