EsbKillRequest() terminates specific Essbase user sessions or requests.
EsbKillRequest (hCtx, ReqInfo) ByVal hCtx As Long ByVal pReqInfo As ESB_REQUESTINFO_T
| hCtx | Context handle |
| pReqInfo | Pointer to the Request Information structure. |
If successful, returns a count of the number of users in Items, and generates a list of users with access to the specified application and database that is accessible using EsbGetNextItem().
This function requires no special privileges.
Declare Function EsbKillRequest Lib "ESAPINW" (ByVal hCtx As Long, pReqInfo As ESB_REQUESTINFO_T) As Long
Sub ESB_KillRequest ()
Dim Items As Integer
Dim pReqInfo As ESB_REQUESTINFO_T
Dim UserName As String
Dim AppName As String
Dim DbName As String
Dim sts As Long
UserName = "Admin"
AppName = "Demo"
DbName = "Basic"
'*************
' List Requests
'*************
sts = EsbListRequests (hCtx, Items)
For n = 1 To Items
'********************
' Get next Request Info
' from the list
'********************
sts = EsbGetNextItem (hCtx,
ESB_REQUESTINFO_TYPE, ByVal ReqInfo)
Print ReqInfo.UserName
sts = EsbKillRequest (hCtx, pReqInfo)
Next
End Sub