EsbOtlCreateAliasTable

Creates an empty alias table in the outline.

Syntax

EsbOtlCreateAliasTable (hOutline, pszAliasTable)
ByVal hOutline      As Long
ByVal pszAliasTable As String
ParameterDescription

hOutline

Outline context handle.

pszAliasTable

Name of alias table to create.

Notes

Return Value

Returns 0 if successful; otherwise one of the following:

Example

Declare Function EsbOtlCreateAliasTable Lib 
"ESBOTLN" (ByVal hOutline As Long, 
ByVal pszAliasTable As String) As Long

Sub ESB_OtlCreateAliasTable()
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
   sts = EsbOtlCreateAliasTable(hOutline, 
    "Alias Table 1")
End If
End Sub

See Also