EsbLockObject() locks an object on the server or client object system to prevent other users from updating it.
EsbLockObject (hCtx, ObjType, AppName, DbName, ObjName)
ByVal hCtx As Long ByVal ObjType As Long ByVal AppName As String ByVal DbName As String ByVal ObjName As String
hCtx | Essbase VB API context handle. May be local context handle returned by EsbCreateLocalContext(). |
ObjType | Object type (must be single type. Refer to Bitmask Data Types for a list of possible values. |
AppName | Application name. |
DbName | Database name. If an empty string, uses the application sub-directory. |
ObjName | Name of an object to lock. |
Declare Function EsbLockObject Lib "ESBAPIW" (ByVal hCtx As Long, ByVal ObjType As Integer, ByVal AppName As String, ByVal DbName As String, ByVal ObjName As String) As Long Sub ESB_LockObject () Dim sts As Long Dim AppName As String Dim DbName As String Dim ObjName As String Dim ObjType As Integer AppName = "Sample" DbName = "Basic" ObjName = "Basic" ObjType = ESB_OBJTYPE_OUTLINE '****************** ' Lock Rules Object '****************** sts = EsbLockObject (hCtx, ObjType, AppName, DbName, ObjName) End SubEsbGetObject()