EsbGetApplicationInfo() gets an application's information structure, which contains non user-configurable parameters for the application.
EsbGetApplicationInfo (hCtx, AppName, pAppInfo, pItems)
ByVal hCtx As Long
ByVal AppName As String
ByVal pAppInfo As ESB_APPINFO_T
pItems As Integer
| hCtx | Essbase VB API context handle (logged in). |
| AppName | Application name. Required; cannot by NULL. |
| pAppInfo | Buffer to receive an application info structure. |
| pItems | Address of variable to receive Items of returned databases. |
Declare Function EsbGetApplicationInfo Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, AppInfo As ESB_APPINFO_T, Items As Integer) As Long
Sub ESB_GetApplicationInfo ()
Dim Items As Integer
Dim AppName As String
Dim DbName As String * ESB_DBNAMELEN
Dim AppInfo As ESB_APPINFO_T
Dim sts As Long
AppName = "Sample"
'*******************************
' Get Application info structure
'*******************************
sts = EsbGetApplicationInfo (hCtx, AppName,
AppInfo, Items)
For n = 1 To Items
'******************************
' Get next Database name string
' from the list
'******************************
sts = EsbGetNextItem (hCtx,
ESB_DBNAME_TYPE, ByVal DbName)
Next
End Sub
EsbGetApplicationInfoEx()