EsbSetApplicationAccess() sets a user application access structure, which contains information about user access to an application.
EsbSetApplicationAccess (hCtx, Items, pUserApp)
ByVal hCtx As Long ByVal Items As Long ByVal pUserApp As ESB_USERAPP_T
| hCtx | Essbase VB API context handle. |
| Items | Reserved for future use. |
| pUserApp | Pointer to a user application structure. |
Declare Function EsbSetApplicationAccess Lib "esbapin" (ByVal hCtx As Long, ByVal Items As Integer, UserApp As ESB_USERAPP_T) As Long
Sub Esb_SetApplicationAccess ()
Dim sts As Long
Dim Items As Integer
Dim UserApp As ESB_USERAPP_T
'*****************************
' Initialize UserApp structure
'*****************************
UserApp.UserName = "Joseph"
UserApp.AppName = "Sample"
UserApp.Access = ESB_ACCESS_SUPER
UserApp.MaxAccess = ESB_ACCESS_SUPER
'***************************
' Set Supervisor access level
'***************************
sts = EsbSetApplicationAccess (hCtx, Items,
UserApp)
End Sub
EsbGetApplicationAccess()