Declare Function EsbImport Lib "ESBAPIN" (ByVal hCtx As Long, Rules As ESB_OBJDEF_T,
Data As ESB_OBJDEF_T, User As ESB_MBRUSER_T,
ByVal ErrName As String, ByVal AbortOnError As Integer)
As Long
Sub ESB_Import ()
Dim sts As Long
Dim Rules As ESB_OBJDEF_T
Dim Data As ESB_OBJDEF_T
Dim User As ESB_MBRUSER_T
Dim ErrorName As String
Dim AbortOnError As Integer
'*********************************
' Rules file resides at the server
'*********************************
Rules.hCtx = hCtx
Rules.Type = ESB_OBJTYPE_RULES
Rules.AppName = "Demo"
Rules.DbName = "Basic"
Rules.FileName = "Test"
'********************************
' Data file resides at the server
'********************************
Data.hCtx = hCtx
Data.Type = ESB_OBJTYPE_TEXT
Data.AppName = "Demo"
Data.DbName = "Basic"
Data.FileName = "Data"
'********************************
' Specify file to redirect errors
' to if any
'********************************
ErrorName = "IMPORT.ERR"
'*************************
' Abort on the first error
'*************************
AbortOnError = ESB_YES
'*******
' Import
'*******
sts = EsbImport (hCtx, Rules, Data, User, ErrorName, AbortOnError)
End Sub