EsbGetAttributeSpecifications() retrieves attribute specifications for the outline.
EsbGetAttributeSpecifications (hCtx, AttrSpecs)
ByVal hCtx As Long
AttrSpecs As As ESB_ATTRSPECS_T
| hCtx | Context handle |
| AttrSpecs | Attribute specifications |
This function requires no special privileges.
Sub ESB_GetAttributeSpecifications()
' NOTE: 'Out' is a sub to print the output within quotes to a listbox or text box.
Dim OutAttrSpecs As ESB_ATTRSPECS_T
Dim sts as long
Dim hCtx as long
Dim test As String
sts = EsbGetAttributeSpecifications(hCtx, OutAttrSpecs)
If sts <> 0 Then Out "ESB_GetAttributeSpecifications failed" & sts: Exit Sub
Out "ESB_GetAttributeSpecifications passed: " & sts
Out "DefaultTrueString : " & OutAttrSpecs.DefaultTrueString
Out "DefaultFalseString : " & OutAttrSpecs.DefaultFalseString
Out "DefaultAttrCalcDimName : " & OutAttrSpecs.DefaultAttrCalcDimName
Out "DefaultSumMbrName : " & OutAttrSpecs.DefaultSumMbrName
Out "DefaultCountMbrName : " & OutAttrSpecs.DefaultCountMbrName
Out "DefaultAverageMbrName : " & OutAttrSpecs.DefaultAverageMbrName
Out "DefaultMinMbrName : " & OutAttrSpecs.DefaultMinMbrName
Out "DefaultMaxMbrName : " & OutAttrSpecs.DefaultMaxMbrName
test = OutAttrSpecs.GenNameBy
Select Case test
Case ESB_GENNAMEBY_PREFIX
Out "GenNameBy : ESB_GENNAMEBY_PREFIX"
Case ESB_GENNAMEBY_SUFFIX
Out "GenNameBy : ESB_GENNAMEBY_SUFFIX"
Case Else
Out "GenNameBy : invalid"
End Select
test = OutAttrSpecs.UseNameOf
Select Case test
Case ESB_USENAMEOF_NONE
Out "UseNameOf : ESB_USENAMEOF_NONE"
Case ESB_USENAMEOF_PARENT
Out "UseNameOf : ESB_USENAMEOF_PARENT"
Case ESB_USENAMEOF_GRANDPARENTANDPARENT
Out "UseNameOf : ESB_USENAMEOF_GRANDPARENTANDPARENT"
Case ESB_USENAMEOF_ALLANCESTORS
Out "UseNameOf : ESB_USENAMEOF_ALLANCESTORS"
Case ESB_USENAMEOF_DIMENSION
Out "UseNameOf : ESB_USENAMEOF_DIMENSION"
Case Else
Out "UseNameOf : invalid"
End Select
test = OutAttrSpecs.Delimiter
Select Case test
Case ESB_DELIMITER_UNDERSCORE
Out "Delimiter : ESB_DELIMITER_UNDERSCORE"
Case ESB_DELIMITER_PIPE
Out "Delimiter : ESB_DELIMITER_PIPE"
Case ESB_DELIMITER_CARET
Out "Delimiter : ESB_DELIMITER_CARET"
Case Else
End Select
test = OutAttrSpecs.DateFormat
Select Case test
Case ESB_DATEFORMAT_MMDDYYYY
Out "DateFormat : ESB_DATEFORMAT_MMDDYYYY"
Case ESB_DATEFORMAT_DDMMYYYY
Out "DateFormat : ESB_DATEFORMAT_DDMMYYYY"
Case Else
Out "Delimiter : invalid"
End Select
test = OutAttrSpecs.BucketingType
Select Case test
Case ESB_UPPERBOUNDINCLUSIVE
Out "BucketingType : ESB_UPPERBOUNDINCLUSIVE"
Case ESB_LOWERBOUNDINCLUSIVE
Out "BucketingType : ESB_ESB_LOWERBOUNDINCLUSIVE"
Case ESB_UPPERBOUNDNONINCLUSIVE
Out "BucketingType : ESB_UPPERBOUNDNONINCLUSIVE"
Case ESB_LOWERBOUNDNONINCLUSIVE
Out "BucketingType : ESB_LOWERBOUNDNONINCLUSIVE"
Case Else
Out "BucketingType : invalid"
End Select
End Sub
EsbCheckAttributes()
EsbGetAssociatedAttributesInfo()
EsbGetAttributeInfo()
EsbOtlAssociateAttributeDimension()
EsbOtlAssociateAttributeMember()
EsbOtlDisassociateAttributeDimension()
EsbOtlDisassociateAttributeMember()
EsbOtlFindAttributeMembers()
EsbOtlGetAssociatedAttributes()
EsbOtlGetAttributeInfo()
EsbOtlGetAttributeSpecifications()
EsbOtlQueryAttributes()
EsbOtlSetAttributeSpecifications()