EsbArchiveEnd() restores the server to "read-write" mode after archiving is complete.
EsbArchiveEnd (hCtx, AppName, DbName)
ByVal hCtx As Long ByVal AppName As String ByVal DbName As String
hCtx | Essbase API context handle. |
AppName | Name of archived application. |
DbName | Name of archived database. |
Declare Function EsbArchiveEnd Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String) As LongSub ESB_ArchiveEnd() Dim sts As Long Dim AppName As String Dim DbName As String AppName = "Sample" DbName = "Basic" '**** Archive End *** sts = EsbArchiveEnd (hCtx, AppName, DbName) End SubEsbArchiveBegin()