EsbOtlSetGenName

次元内の特定世代に対して名前を設定します。

構文

            EsbOtlSetGenName
             (
            hOutline, pszDimension, usGen, pszName
            )
ByVal 
            hOutline
                 As Long
ByVal 
            pszDimension
             As String
ByVal 
            usGen
                    As Integer
ByVal 
            pszName
                  As String

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
pszDimension	対象の世代を含む次元の名前。
usGen	名前を設定する世代の番号。次元自体は世代1です。
pszName	世代に与える名前。

備考

世代名はメンバー名と同じルールに従い、メンバー名全体で一意性が必要です。他の世代、レベル、メンバー名、または別名と重複できません。重複した名前を追加しようとすると、エラーが発生します。
各特定次元および世代で持つことができる名前は1つです。

戻り値

正常終了の場合は0が戻されます。それ以外の場合は、次のいずれかの値が戻されます:

OTLAPI_BAD_GENLEVELNAME
OTLAPI_ERR_GENLEVELNAMEEXISTS
OTLAPI_ERR_GENLEVELEXISTS
OTLAPI_ERR_GENLEVELVALUE
LAPI_ERR_NOTADIM
OTLAPI_ ERR_GENLEVELNAMEMBR

例

         Declare Function EsbOtlSetGenName Lib 
"ESBOTLN" (ByVal hOutline As Long, ByVal pszDimension As String,
ByVal usGen As Integer, ByVal pszName As String) As Long 

Sub ESB_OtlSetGenName()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim Dimension As String
Dim GenNum As Integer
Dim GenName As String
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object, ESB_YES,
ESB_YES, hOutline)
'*****************************************
'********** Set Generation Name **********
'*****************************************
Dimension = "Year"
GenNum = 2
GenName = "Qtr1 Qtr2 Qtr3 Qtr4"
If Not sts Then
   sts = EsbOtlSetGenName(hOutline, Dimension,
GenNum, GenName)
End If
End Sub