EsbCalcFile() executes a calc script against the active database from a file.
EsbCalcFile (hDestCtx, hSrcCtx, AppName, DbName, FileName, isCalculate)
ByVal hDestCtx As Long ByVal hSrcCtx As Long ByVal AppName As String ByVal DbName As String ByVal FileName As String ByVal isCalculate As Integer
hDestCtx | Essbase VB API context handle of target database on the server. |
hSrcCtx | Essbase VB API context handle for calc script file location. The calc script file can reside on the client or on the same server as the target database. |
AppName | Application name for calc script file location. |
DbName | Database name for calc script file location. |
FileName | Name of calc script file. |
isCalculate | Controls calculation of the calc script. If TRUE, the calc script is executed. |
Declare Function EsbCalcFile Lib "ESBAPIW" (ByVal hDestCtx As Long, ByVal hSrcCtx As Long, ByVal AppName As String, ByVal DbName As String, ByVal FileName As String, ByVal isCalculate As Integer) As Long Sub ESB_CalcFile () Dim sts As Long Dim AppName As String Dim DbName As String Dim FileName As String Dim Calculate As Integer Dim hSrcCtx As Long Dim ProcState As ESB_PROCSTATE_T AppName = "Sample" DbName = "Basic" '*************************************** ' Calc script is an object at the server * '*************************************** hSrcCtx = hCtx FileName = "calc" Calculate = ESB_YES '********** ' Calc File '********** sts = EsbCalcFile (hCtx, hSrcCtx, AppName, DbName, FileName, Calculate) '************************************ ' Check process state till it is done '************************************ sts = EsbGetProcessState (hCtx, ProcState) Do Until ProcState.State = ESB_STATE_DONE sts = EsbGetProcessState (hCtx, ProcState) Loop End SubEsbBeginCalc()