EsbOtlAssociateAttributeDimension

Associates an attribute dimension with a standard or base dimension.

Syntax

EsbOtlAssociateAttributeDimension (hOutline, BaseDimension, AttributeDimension)
ByVal hOutline           As Long
ByVal BaseDimension      As Long
ByVal AttributeDimension As Long
ParameterDescription

hOutline

Handle to the outline

BaseDimension

Handle to the standard or base dimension

AttributeDimension

Handle to the base dimension

Notes

Return Value

Returns STS = 0 when successful. Otherwise, returns an error code.

Access

This function requires no special privileges.

Example

Sub ESB_OtlAssociateAttributeDimension()
        ' NOTE: 'Out' is a sub to print the output within quotes to a listbox or text box
        Dim sts as long
        Dim hOutline as long
Dim BaseMbr As Long
Dim AttrMbr As Long
    
hOutline = ESB_OtlOpenOutline
If hOutline = vbNull Then Out "ESB_OtlOpenOutline() failed: " & sts: Exit Sub
 ' abstract function (using EsbOtlFindMember()) to get member handle, while passing in a prompt string       
BaseMbr = ESB_OtlFindMember("Enter base dimension: ")
If BaseMbr = vbNull Then
Out "ESB_OtlFindMember() failed."
Exit Sub
End If
 
' abstract function (using EsbOtlFindMember()) to get member handle, while passing in a prompt string 
AttrMbr = ESB_OtlFindMember("Enter attribute dimension: ")
If AttrMbr = vbNull Then Out "ESB_OtlFindMember() failed.": Exit Sub
    
sts = EsbOtlAssociateAttributeDimension(ghOutline, BaseMbr, AttrMbr)
' abstract sub to call EsbOtlVerifyOutline(), ESBOTLNriteOutline(), EsbOtlRestructure(),EsbUnlockObject() and
' EsbOtlCloseOutline() as neededà
tuckinoutline
If sts <> 0 Then Out "EsbOtlAssociateAttributeDimension failed: " & sts: Exit Sub
End Sub

See Also