EsbCopyFilter() copies an existing filter.
EsbCopyFilter (hCtx, hSrcCtx, AppName, nAppName, DbName, nDbName, FltName, nFltName)
ByVal hCtx As Long ByVal hSrcCtx As Long ByVal AppName As String ByVal nAppName As String ByVal DbName As String ByVal nDbName As String ByVal FltName As String ByVal nFltName As String
| hCtx | Essbase VB API context handle. |
| hSrcCtx | Not used - should be same as hCtx. |
| AppName | Source application name. |
| nAppName | Destination application name. |
| DbName | Source database name. |
| nDbName | Destination database name. |
| FltName | Source name of an existing filter to be copied. |
| nFltName | Destination name of the copied filter. |
Declare Function EsbCopyFilter Lib "ESBAPIW" (ByVal hCtx As Long, ByVal hSrcCtx As Long, ByVal SrcApp As String, ByVal DestApp As String, ByVal SrcDb As String, ByVal DestDb As String, ByVal SrcName As String, ByVal DestName As String) As Long
Sub ESB_CopyFilter ()
Dim sts As Long
Dim SrcApp As String
Dim SrcDb As String
Dim SrcName As String
Dim DestApp As String
Dim DestDb As String
Dim DestName As String
Dim hDestCtx As Long
hDestCtx = hCtx
SrcApp = "Sample"
SrcDb = "Basic"
SrcName = "Filter"
DestApp = "NewSamp"
DestDb = "NewBasic"
DestName = "NewFilter"
'************
' Copy Filter
'************
sts = EsbCopyFilter (hCtx, hDestCtx, SrcApp,
DestApp, SrcDb, DestDb, SrcName, DestName)
End Sub
EsbDeleteFilter()