EsbOtlRenameAliasTable

既存の別名テーブル名を変更します。

構文

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

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
pszAliasTable	変更する別名テーブル名。
pszNewAliasTable	新しい別名テーブル名。

備考

デフォルトの別名テーブルの名前を、"Default"から変更しないでください。
別名テーブルの名前を変更した場合、別名テーブルに関連付けられた言語コードは名前が変更された別名テーブルに保持されます。

戻り値

正常終了の場合は0が戻されます。それ以外の場合は、次のいずれかの値が戻されます:

OTLAPI_BAD_ALIASTABLE
OTLAPI_ERR_RENAMEDEFALIAS
OTLAPI_ERR_ALIASTABLENAME
OTLAPI_ERR_ALIASTABLEEXISTS

例

         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