EsbOtlClearAliasTableLanguages

Clears the set of language codes associated with the specified alias table.

Syntax

ESB_FUNC_M EsbOtlClearAliasTableLanguages (hOutline, pszAliasTable)
ByVal   hOutline        As Long
ByVal   pszAliasTable   As String

Parameter	Description
hOutline	Handle to the outline.
pszAliasTable	Name of the alias table from which to remove all associated language codes.

Return Value

If successful, returns 0.
If unsuccessful, returns the error OTLAPI_BAD_ALIASTABLE (invalid alias table).

Access

This function does not require special privileges.

Example

Declare Function EsbOtlGetAliasTableLanguages Lib "esbotln" (ByVal hOutline As Long, ByVal pszAliasTable As String, pulCount As Long) As Long
Declare Function EsbOtlSetAliasTableLanguage Lib "esbotln" (ByVal hOutline As Long, ByVal pszAliasTable As String, ByVal pszLanguageCode As String) As Long
Declare Function EsbOtlClearAliasTableLanguages Lib "esbotln" (ByVal hOutline As Long, ByVal pszAliasTable As String) As Long

Sub ESB_Sub ()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim Items As Long
Dim AliasLang As String * ESB_ALIASNAMELEN

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, 
    "French Alias Table")
End If
If sts = 0 Then
   sts = EsbOtlSetAliasTableLanguage(hOutline, 
    "French Alias Table", "fr")
End If
If sts = 0 Then
   sts = EsbOtlSetAliasTableLanguage(hOutline, 
    "French Alias Table", "fr-CA")
End If

If sts = 0 Then
   sts = EsbOtlGetAliasTableLanguages(hOutline, 
    "French Alias Table", Items)
   If sts = 0 Then
	For N = 1 To Items
     		sts = EsbGetNextItem(hCtx, ESB_ALIASLANG_TYPE, ByVal AliasLang)
   	Next
   End If
End If

If sts = 0 Then
   sts = EsbOtlClearAliasTableLanguages(hOutline, 
    "French Alias Table")
End If

End Sub