EsbListAliases() lists all the alias table names in the active database.
EsbListAliases (hCtx, pItems)
ByVal hCtx As Long
pItems As Integer
| hCtx | Essbase VB API context handle. |
| pItems | Address of variable to receive Items of alias tables. |
Declare Function EsbListAliases Lib "ESBAPIW" (ByVal hCtx As Long, Items As Integer) As Long
Sub ESB_ListAliases ()
Dim Items As Integer
Dim AliasName As String * ESB_ALIASNAMELEN
Dim sts As Long
'*************
' List Aliases
'*************
sts = EsbListAliases (hCtx, Items)
For n = 1 To Items
'********************
' Get next Alias Name
' from the list
'********************
sts = EsbGetNextItem (hCtx,
ESB_ALIASNAME_TYPE, ByVal AliasName)
Next
End Sub
EsbDisplayAlias()