EsbGetDefaultCalc() gets the default calc script for the active database.
EsbGetDefaultCalc (hCtx, cscString, szString)
ByVal hCtx As Long ByVal cscString As String ByVal szString As Integer
hCtx | Essbase VB API context handle. |
cscString | Buffer to receive a calc script string. |
szString | Size of the buffer to receive a calc script string. |
Declare Function EsbGetDefaultCalc Lib "ESBAPIW" (ByVal hCtx As Long, ByVal Script As String, ByVal szScript As Integer) As Long Sub ESB_GetDefaultCalc () Dim sts As Long Const szScript = 1024 Dim Script As String * szScript '***************** ' Get default calc '***************** sts = EsbGetDefaultCalc (hCtx, Script, szScript) End SubEsbDefaultCalc()