EsbGetFilterList() gets the list of users who are assigned a filter.
EsbGetFilterList (hCtx, AppName, DbName, FltName, pItems)
ByVal hCtx As Long
ByVal AppName As String
ByVal DbName As String
ByVal FltName As String
pItems As Integer
| hCtx | Essbase VB API context handle. |
| AppName | Application name. |
| DbName | Database name. |
| FltName | Filter name. |
| pItems | Address of variable to receive Items of users assigned this filter. |
Declare Function EsbGetFilterList Lib "ESBAPIW" (ByVal hCtx As
Long, ByVal AppName As String, ByVal DbName As String, ByVal
FilterName As String, Items As Integer) As Long
Sub ESB_GetFilterList ()
Dim Items As Integer
Dim AppName As String
Dim DbName As String
Dim FilterName As String
Dim User As String * ESB_USERNAMELEN
Dim sts As Long
AppName = "Sample"
DbName = "Basic"
FilterName = "Filter"
'****************
' Get Filter List
'****************
sts = EsbGetFilterList (hCtx, AppName, DbName, FilterName, Items)
For n = 1 To Items
'**************************
' Get next User Name String
' from the list
'**************************
sts = EsbGetNextItem (hCtx,
ESB_FUSERNAME_TYPE, ByVal User)
Next
End Sub
EsbGetFilter()