EsbOtlSetAttributeSpecifications

アウトラインの属性指定を設定します。

構文

            EsbOtlSetAttributeSpecifications
             (
            hOutline
            , 
            AttrSpecs
            )
ByVal 
            hOutline
              As Long
      
            AttrSpecs
             As ESB_ATTRSPECS_T

パラメータ	説明
hOutline	アウトラインのハンドル
AttrSpecs	属性指定

備考

属性指定は、次のような場合に使用します:
- ロング名の生成
- 日時属性のフォーマットの指定
- 数値属性のバケットのタイプの指定
- 属性計算次元名およびそこで使用される値の名前の提供
属性指定を設定しない場合、アウトラインではデフォルトの属性指定が使用されます。
属性指定を変更すると、再構築されることがあります。

アクセス

この関数を使用するのに、特別な権限は必要ありません。

例

         Sub ESB_OtlSetAttributeSpecifications()
     Dim InAttrSpecs As ESB_ATTRSPECS_T
     eraser
     InAttrSpecs.GenNameBy = InputBox("Enter GenNameBy:" & vbCrLf & _
          "0. ESB_GENNAMEBY_PREFIX" & vbCrLf & _
          "1. ESB_GENNAMEBY_SUFFIX")
     InAttrSpecs.UseNameOf = InputBox("Enter UseNameOf:" & vbCrLf & _
          "0. ESB_USENAMEOF_NONE" & vbCrLf & _
          "1. ESB_USENAMEOF_PARENT" & vbCrLf & _
          "2. ESB_USENAMEOF_GRANDPARENTANDPARENT" & vbCrLf & _
          "3. ESB_USENAMEOF_ALLANCESTORS" & vbCrLf & _
          "4. ESB_USENAMEOF_DIMENSION")
     InAttrSpecs.Delimiter = InputBox("Enter Delimiter:" & vbCrLf & _
          "0. ESB_DELIMITER_UNDERSCORE" & vbCrLf & _
          "1. ESB_DELIMITER_PIPE" & vbCrLf & _
          "2. ESB_DELIMITER_CARET")
     InAttrSpecs.DateFormat = InputBox("Enter DateFormat:" & vbCrLf & _
          "0. ESB_DATEFORMAT_MMDDYYYY" & vbCrLf & _
          "1. ESB_DATEFORMAT_DDMMYYYY")
     InAttrSpecs.BucketingType = InputBox("Enter BucketingType:" & vbCrLf & _
          "0. ESB_UPPERBOUNDINCLUSIVE" & vbCrLf & _
          "1. ESB_ESB_LOWERBOUNDINCLUSIVE" & vbCrLf & _
          "2. ESB_UPPERBOUNDNONINCLUSIVE" & vbCrLf & _
          "3. ESB_ESB_LOWERBOUNDNONINCLUSIVE")
     InAttrSpecs.DefaultTrueString = InputBox("Enter DefaultTrueString: ", , "ESB_DEFAULT_TRUESTRING")
     InAttrSpecs.DefaultFalseString = InputBox("Enter DefaultFalseString: ", , "ESB_DEFAULT_FALSESTRING")
     InAttrSpecs.DefaultAttrCalcDimName = InputBox("Enter DefaultAttrCalcDimName: ", , "ESB_DEFAULT_ATTRIBUTECALCULATIONS")
     InAttrSpecs.DefaultSumMbrName = InputBox("Enter DefaultSumMbrName: ", , "ESB_DEFAULT_SUM")
     InAttrSpecs.DefaultCountMbrName = InputBox("Enter DefaultCountMbrName: ", , "ESB_DEFAULT_COUNT")
     InAttrSpecs.DefaultAverageMbrName = InputBox("Enter DefaultAverageMbrName: ", , "ESB_DEFAULT_AVERAGE")
     InAttrSpecs.DefaultMinMbrName = InputBox("Enter DefaultMinMbrName: ", , "ESB_DEFAULT_MIN")
     InAttrSpecs.DefaultMaxMbrName = InputBox("Enter DefaultMaxMbrName: ", , "ESB_DEFAULT_MAX")
     sts = EsbOtlSetAttributeSpecifications(ghOutline, InAttrSpecs)
     If sts = 0 Then
          Out "ESB_OtlSetAttributeSpecifications passed: " & sts
          Out "GenNameBy : " & InAttrSpecs.GenNameBy
          Out "UseNameOf : " & InAttrSpecs.UseNameOf
          Out "Delimiter : " & InAttrSpecs.Delimiter
          Out "DateFormat : " & InAttrSpecs.DateFormat
          Out "BucketingType : " & InAttrSpecs.BucketingType
          Out "DefaultTrueString : " & InAttrSpecs.DefaultTrueString
          Out "DefaultFalseString : " & InAttrSpecs.DefaultFalseString
          Out "DefaultAttrCalcDimName : " & InAttrSpecs.DefaultAttrCalcDimName
          Out "DefaultSumMbrName : " & InAttrSpecs.DefaultSumMbrName
          Out "DefaultCountMbrName : " & InAttrSpecs.DefaultCountMbrName
          Out "DefaultAverageMbrName : " & InAttrSpecs.DefaultAverageMbrName
          Out "DefaultMinMbrName : " & InAttrSpecs.DefaultMinMbrName
          Out "DefaultMaxMbrName : " & InAttrSpecs.DefaultMaxMbrName
     Else
          Out "ESB_OtlSetAttributeSpecifications failed" & sts
          Exit Sub
     End If
End Sub