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

Parameter	Description
hCtx	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. See Filter Name Limits.

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.

Return Value

None.

Access

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

Example

Declare Function EsbCopyFilter Lib "ESBAPIN" (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