EsbOtlDeleteUserAttribute

Description

EsbOtlDeleteUserAttribute() deletes a user-defined attribute for a member.

Syntax

EsbOtlDeleteUserAttribute (hOutline, hMember, pszString)
ByVal hOutline  As Long
ByVal hMember   As Long
ByVal pszString As String

Parameters

hOutlineOutline context handle
hMemberHandle of member whose attribute you are deleting.
pszStringUser attribute string.

Return Value

Returns 0 if successful; otherwise:

OTLAPI_NO_USERATTR.

Notes

Example

Declare Function EsbOtlDeleteUserAttribute Lib 
"ESBOTLW" (ByVal hOutline As Long, ByVal hMember As Long,
ByVal pszString As String) As Long 

Sub ESB_OtlDeleteUserAttribute()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMember As Long
Dim AttributeList As String

Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
AttributeList = "Read Write"

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
'********************
' Delete User Attributes
'********************
   sts = EsbOtlDeleteUserAttribute(hOutline,
    hMember, AttributeList)
  End If
End Sub

See Also

EsbOtlGetUserAttributes()
EsbOtlSetUserAttribute()