EsbOtlGetNextAliasCombination() returns the alias combinations for the specified member in the specified alias table. The alias is returned in the pszAlias parameter, and the member combination is returned in pszCombination.
EsbOtlGetNextAliasCombination (hOutline, hMember, pszAliasTable, pszAlias, pszCombination, usBufSize)
ByVal hOutline As Long ByVal hMember As Long ByVal pszAliasTable As String ByVal pszAlias As String ByVal pszCombination As String ByVal usBufSize As Integer
| hOutline | Outline context handle. |
| hMember | Handle of member to retrieve the alias combination from. |
| pszAliasTable | Alias table to retrieve the alias combination from. If this parameter is "", the default alias table is used. |
| pszAlias | Buffer for the return of the next alias. The next alias is determined by what is specified in this parameter. If a zero-length string, the first alias is returned. If the parameter is a valid alias combination, the next alias is returned. |
| pszCombination | Member combination of the returned alias. This buffer is allocated by the caller. |
| usBufSize | Size of the pszCombination buffer. |
Returns 0 if successful; otherwise:
OTLAPI_BAD_ALIASTABLE
Declare Function EsbOtlGetNextAliasCombination Lib
"ESBOTLW" (ByVal hOutline As Long, ByVal hMember As Long,
ByVal pszAliasTable As String, ByVal pszAlias As String,
ByVal pszCombination As String, ByVal usBufSize As Integer) As Long
Sub ESB_OtlGetNextAliasCombination()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMemberJan As Long
Dim szAlias As String * ESB_MBRNAMELEN
Dim szCombination As String * 100
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
szCombination = "xxx"
Do While sts = 0 And Left$(szCombination, 1)
<> Chr$(0)
sts = EsbOtlGetNextAliasCombination
(hOutline, hMemberJan, "Default", szAlias, szCombination, 100)
Loop
End If
End Sub