Building Attribute Dimensions in VB

Question

I am writing a VB program to update an attribute dimension. I have followed the documented approach to populate the ESB_MBRINFO_T structure but continue to get errors 8 - ESB_OUTERROR2_ILLEGALDATATYPE and 64 = ESB_OUTERROR2_ATTRDIMNOTASSOCIATED.
The code is
Public Function esbMoveOrAddMember(rsChild As String, _
rsParent As String, _
rsAlias As String) As Integer
Dim sts As Long
Dim stsInfo As Long
Dim hChild As Long
Dim hCurrentParent As Long
Dim hParent As Long
Dim uNewMemInfo As ESB_MBRINFO_T
Dim szAlias As String * ESB_MBRNAMELEN
esbMoveOrAddMember = 0
If esbFindMember(rsParent, hParent) Then 'Find Parent
If esbFindMember(rsChild, hChild) Then 'Find member
' Found parent and child so see if a move is needed
' Get the current parent handle
stsInfo = EsbOtlGetParent(mhOutline, hChild, hCurrentParent)
If hParent <> hCurrentParent Then
sts = EsbOtlMoveMember(mhOutline, hChild, hParent, ESB_NULL)
If sts <> 0 Then
esbMoveOrAddMember = 1
Call essGetAndDisplayMessage(sts)
End If
End If
Else
'Good Parent, new member so add it
Call SetupAttributeMemberForAdd(rsChild, uNewMemInfo)
sts = EsbOtlAddMember(mhOutline, uNewMemInfo, ESB_NULL, hParent, hChild)
If sts <> 0 Then
esbMoveOrAddMember = 2
Call essGetAndDisplayMessage(sts)
End If
End If
Else
esbMoveOrAddMember = 3
sts = 5
End If
'* Set the alias of the child member
If sts = 0 And hChild <> 0 And Len(rsAlias) > 0 Then
szAlias = rsAlias
sts = EsbOtlSetMemberAlias(mhOutline, hChild, "", szAlias)
If sts <> 0 And sts <> 1060023 Then
esbMoveOrAddMember = 4
Call essGetAndDisplayMessage(sts)
End If
End If
End Function
Sub SetupAttributeMemberForAdd(rsChild As String, uMemInfo As ESB_MBRINFO_T)
With uMemInfo
.szMember = rsChild
.usConsolidation = ESB_UCALC_NOOP
.fTwoPass = ESB_FALSE
.fExpense = ESB_FALSE
.usConversion = ESB_CONV_NONE
.usTimeBalance = ESB_TIMEBAL_NONE
.usSkip = ESB_SKIP_NONE
.usShare = ESB_SHARE_DYNCALCNOSTORE
.usStorage = ESB_DIMTYPE_SPARSE
.usCategory = ESB_CAT_ATTRIBUTE
.usStorageCategory = ESB_STORECAT_ATTRIBUTE
.Attribute = ESB_ATTRMBRDT_NONE
End With
End Sub
Any help will be appreciated as Oracle support is none so far.

Answer 1

Hi,
Your error "ESB_OUTERROR2_ILLEGALDATATYPE and 64 = ESB_OUTERROR2_ATTRDIMNOTASSOCIATED." indicates problem with attribute dimension association
kindly check is there any duplicate member in attribute dimension.
or same attribute dimension is associated with some other dimensions