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()