# EsbSetApplicationAccess

Description

EsbSetApplicationAccess() sets a user application access structure, which contains information about user access to an application.

Syntax

    EsbSetApplicationAccess (hCtx, Items, pUserApp)

    ByVal hCtx     As Long
    ByVal Items    As Long
    ByVal pUserApp As ESB_USERAPP_T

Parameters

hCtx | Essbase VB API context handle.
Items | Reserved for future use.
pUserApp | Pointer to a user application structure.

Return Value

None.

Notes

- The Access field of the user application structure is used to set the user's granted access to the application. For this call the MaxAccess field is ignored.

Access

This function requires the caller to have Application Design privilege (ESB_PRIV_APPDESIGN) for the specified application.

Example

    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

See Also

EsbGetApplicationAccess()
EsbListUsers()
EsbSetDatabaseAccess()
EsbSetUser()