Retrieves the n'th member from the member combination list of the current LRO.
EsbLROGetMemberCombo (hCtx, memberIndex, memberName) ByVal hCtx As ESB_HCTX_T ByRef memberIndex As ESB_ULONG_T ByVal memberName As ESB_MBRNAME_T
hCtx | Essbase VB API context handle. |
memberIndex | Position in the member list of the member to be returned. |
memberName | Returned member's name. |
If successful, returns a member in memberName. If fails, returns -1 to indicate the current object is not an LRO type, or 1 to indicate out of bounds. Out of bounds means either there is no member at the memberIndex position, or there is no LRO at the current item. See Notes.
This function requires no special privileges.
Declare Function EsbLROGetMemberCombo Lib "ESBAPIN" (ByVal hCtx As Long, _ ByVal MemberIndex As Long, ByVal MemberName As String * ESB_MBRNAMELEN) As Long Sub ESB_LROGetMemberCombo() Dim userName As String * ESB_USERNAMELEN Dim listDate As Long Dim Count As Integer Dim Desc As ESB_LRODESC_API_T Dim i As Integer Dim j As Integer Dim CutOffDate As Date Dim MemberName As String * ESB_MBRNAMELEN Const ESB_REFERENCE_DATE = #1/1/70# userName = "admin" CutOffDate = #8/1/97# listDate = DateDiff("s", CutOffDate, ESB_REFERENCE_DATE) sts = EsbLROListObjects(hCtx, userName, listDate, Count) If sts = 0 Then For i = 1 To Count '************************************** '* Get the next LRO item from the list '************************************** sts = EsbGetNextItem(hCtx, ESB_LRO_TYPE, Desc) If sts = 0 Then For j = 1 To Desc.memCount '************************************************************* '* Get the jth member from the member list of the current LRO '************************************************************* sts = EsbLROGetMemberCombo(hCtx, j, MemberName) Next j Next i End If End Sub