EsbOtlRenameAliasTable() renames an existing alias table.
EsbOtlRenameAliasTable (hOutline, pszAliasTable, pszNewAliasTable)
ByVal hOutline As Long ByVal pszAliasTable As String ByVal pszNewAliasTable As String
| hOutline | Outline context handle. |
| pszAliasTable | Name of alias table to rename. |
| pszNewAliasTable | Name of new alias table. |
Returns 0 if successful; otherwise one of the following:
OTLAPI_BAD_ALIASTABLE
OTLAPI_ERR_RENAMEDEFALIAS
OTLAPI_ERR_ALIASTABLENAME
OTLAPI_ERR_ALIASTABLEEXISTS
Declare Function EsbOtlRenameAliasTable Lib
"ESBOTLW" (ByVal hOutline As Long, ByVal pszAliasTable As String,
ByVal pszNewAliasTable As String) As Long
Sub ESB_OtlRenameAliasTable()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object,
ESB_YES, ESB_YES, hOutline)
If sts = 0 Then
EsbOtlRenameAliasTable(hOutline, "Alias Table 1",
"1st Alias Table")
End If
End Sub
EsbOtlCreateAliasTable()
EsbOtlCopyAliasTable()
EsbOtlClearAliasTable()
EsbOtlDeleteAliasTable()