EsbDeleteLocationAlias() deletes an existing location alias.
EsbDeleteLocationAlias (hCtx, AliasName)
ByVal hCtx As Long ByVal AliasName As String
| hCtx | Essbase API context handle |
| AliasName | Location alias |
Returns an error if a location alias with the name AliasName is not found.
Public Sub LocationAliasTest()
Dim status As Long
Dim ListCount As Integer
Dim Aliases As Variant
Dim HostNames As Variant
Dim AppNames As Variant
Dim DbNames As Variant
Dim UserNames As Variant
status = EsbCreateLocationAlias(hCtx, "blah1", "LocalHost", "Demo", "Basic", _
"admin", "password")
If (status <> 0) Then
MsgBox "Create routine Failed"
Exit Sub
End If
status = EsbCreateLocationAlias(hCtx, "blah2", "LocalHost", "Demo", "Basic", _
"admin", "password")
If (status <> 0) Then
MsgBox "Create routine Failed"
Exit Sub
End If
status = EsbGetLocationAliasList(hCtx, ListCount, Aliases, HostNames, _
AppNames, DbNames, UserNames)
If (status <> 0) Then
MsgBox "Get routine Failed"
Exit Sub
End If
If (ListCount > 0) Then
' Retrieve the elements as Aliases(0) to Aliases(ListCount -1)
End If
status = EsbDeleteLocationAlias(hCtx, "blah1")
If (status <> 0) Then
MsgBox "Delete routine Failed"
Exit Sub
End If
status = EsbGetLocationAliasList(hCtx, ListCount, Aliases, HostNames, _
AppNames, DbNames, UserNames)
If (status <> 0) Then
MsgBox "Get routine Failed"
Exit Sub
End If
End Sub