EsbListApplications() lists all applications which are accessible to the caller.
EsbListApplications (hCtx, pItems)
ByVal hCtx As Long
pItems As Integer
| hCtx | Essbase VB API context handle. |
| pItems | Address of variable to receive Items of returned applications. |
Declare Function EsbListApplications Lib "ESBAPIW" (ByVal hCtx As Long, Items As Integer) As Long
Sub ESB_ListApplications ()
Dim sts As Long
Dim Items As Integer
Dim AppName As String * ESB_APPNAMELEN
'******************************
' Get List of Application names
'******************************
sts = EsbListApplications (hCtx, Items)
For n = 1 To Items
'*********************************
' Get next Application name string
'*********************************
sts = EsbGetNextItem (hCtx,
ESB_APPNAME_TYPE, ByVal AppName)
Next
End Sub
EsbListDatabases()