EsbOtlGetUserAttributes() retrieves all user-defined attributes for a member.
EsbOtlGetUserAttributes (hOutline, hMember, pusCount)
ByVal hOutline As Long
ByVal hMember As Long
pusCount As Integer
| hOutline | Outline context handle. |
| hMember | Handle of member for which to get the user-defined attribute. |
| pusCount | Count of user attributes returned; defines the number of elements in the ppAttributeList array. |
Returns 0 if successful.
Declare Function EsbOtlGetUserAttributes Lib
"ESBOTLW" (ByVal hOutline As Long, ByVal hMember As Long,
pusCount As Integer) As Long
Sub ESB_OtlGetUserAttributes()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMember As Long
Dim AttributeList As String * ESB_MBRNAMELEN
Dim n As Integer
Dim Count As Integer
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",
hMember)
End If
If sts = 0 And hMember <> 0 Then
'********************
' Get User Attributes
'********************
sts = EsbOtlGetUserAttributes(hOutline,
hMember, Count)
End If
If sts = 0 And Count <> 0 Then
For n = 1 To Count
'********************************
' Get next User Attribute String
' from the list
'********************************
sts = EsbGetNextItem(hCtx,
ESB_OTLUSERATTR_TYPE, ByVal AttributeList)
Next
End If
End Sub