EsbOtlRenameAliasTable

Renames an existing alias table.

Syntax

EsbOtlRenameAliasTable (hOutline, pszAliasTable, pszNewAliasTable)
ByVal hOutline         As Long
ByVal pszAliasTable    As String
ByVal pszNewAliasTable As String

Parameter	Description
hOutline	Outline context handle.
pszAliasTable	Name of alias table to rename.
pszNewAliasTable	Name of new alias table.

Notes

The default alias table cannot be renamed from "Default".
When renaming an alias table, language codes associated with the alias table are preserved in the renamed alias table.

Return Value

Returns 0 if successful; otherwise one of the following:

OTLAPI_BAD_ALIASTABLE
OTLAPI_ERR_RENAMEDEFALIAS
OTLAPI_ERR_ALIASTABLENAME
OTLAPI_ERR_ALIASTABLEEXISTS

Example

Declare Function EsbOtlRenameAliasTable Lib
"ESBOTLN" (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