EsbDisplayAlias() displays the contents of an alias table in the active database.
EsbDisplayAlias (hCtx, AltName, pItems)
ByVal hCtx As Long
ByVal AltName As String
pItems As Integer
| hCtx | Essbase VB API context handle. |
| AltName | Name of alias table. |
| pItems | Address of variable to receive Items of aliases. |
Declare Function EsbDisplayAlias Lib "ESBAPIW" (ByVal hCtx As Long, ByVal Name As String, Items As Integer) As Long
Sub ESB_DisplayAlias ()
Dim pItems As Integer
Dim Name As String
Dim MbrAlt As ESB_MBRALT_T
Dim sts As Long
Name = "Default"
'**************
' Display Alias
'**************
sts = EsbDisplayAlias (hCtx, Name,
pItems)
For n = 1 To Items
'***************************
' Get next Member/Alias Name
' combination from the list
'***************************
sts = EsbGetNextItem (hCtx,
ESB_MBRALT_TYPE, MbrAlt)
Next
End Sub
EsbListAliases()