EsbOtlAddAliasCombination

Description

EsbOtlAddAliasCombination() adds an alias combination to a member for a single alias table.

Syntax

EsbOtlAddAliasCombination (hOutline, hMember, pszAliasTable, pszAlias, pszCombination)
ByVal hOutline       As Long
ByVal hMember        As Long
ByVal pszAliasTable  As String
ByVal pszAlias       As String
ByVal pszCombination As String

Parameters

hOutlineOutline context handle.
hMemberHandle of member to create an alias combination for.
PszAliasTableAlias table to add the combination to. If this parameter is "", the default alias table is used.
pszAliasAlias.
PszCombinationMember combination to associate with the alias. This can be a cross-dimensional member list.

Return Value

Returns 0 if successful; otherwise one of the following:

OTLAPI_BAD_ALIASTABLE
OTLAPI_ERR_ALIASSHARED
OTLAPI_ERR_ILLEGALCOMBOALIAS
OTLAPI_ERR_ILLEGALALIASSTRING
OTLAPI_ERR_DUPLICATEALIAS

Notes

Example

Declare Function EsbOtlAddAliasCombination Lib
"ESBOTLW" (ByVal hOutline As Long, ByVal hMember
As Long, ByVal pszAliasTable As String, ByVal pszAlias As String, ByVal 
pszCombination As String) As Long

Sub ESB_EsbOtlAddAliasCombination() 
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim MbrInfo As ESB_MBRINFO_T
Dim hMemberJan 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 = EsbOtlFindMember(hOutline, 
    "Jan", hMemberJan) 
End If
If sts = 0 And hMemberJan <> 0 Then
   sts = EsbOtlAddAliasCombination(hOutline,
    hMemberJan, "Default", "alias combination",
    "Year->Market")
End If
End Sub

See Also

EsbOtlDeleteAliasCombination()
EsbOtlGetNextAliasCombination()