EsbDefaultCalc() executes the default calculation for the active database.
EsbDefaultCalc (hCtx)
ByVal hCtx As Long
hCtx | Essbase VB API context handle. | |
Declare Function EsbDefaultCalc Lib "ESBAPIW" (ByVal hCtx As Long) As Long
Sub ESB_DefaultCalc ()
Dim sts As Long
Dim ProcState As ESB_PROCSTATE_T
'************************
' Run default calc script
'************************
sts = EsbDefaultCalc (hCtx)
'************************************
' Check process state till it is done
'************************************
sts = EsbGetProcessState (hCtx, ProcState)
Do Until ProcState.State = ESB_STATE_DONE
sts = EsbGetProcessState (hCtx, ProcState)
Loop
End Sub
EsbBeginCalc()