# EsbCopyFilter

Description

EsbCopyFilter() copies an existing filter.

Syntax

    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

Parameters

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.

Return Value

None.

Notes

- The source filter must already exist.
- To prevent overwriting an existing filter by mistake, the caller should check whether the destination filter already exists.

Access

This function requires the caller to have Database Design privilege (ESB_PRIV_DBDESIGN) for the specified database.

Example

    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

See Also

EsbDeleteFilter()
EsbListFilters()
EsbRenameFilter()
EsbSetFilter()