EsbOtlDeleteGenName

次元内の特定の世代名を削除します。世代名は、EsbOtlSetGenNameを使用してアウトラインに明示的に追加されます。

構文

            EsbOtlDeleteGenName
             (
            hOutline, pszDimension, usGen
            )
ByVal 
            hOutline
                 As Long
ByVal 
            pszDimension
             As String
ByVal 
            usGen
                    As Integer

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
pszDimension	対象の世代を含む次元の名前。
usGen	名前を削除する世代の番号。リーフ・メンバーはレベル0です。

戻り値

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

OTLAPI_NO_GENLEVELNAME
OTLAPI_ERR_NOTADIM

例

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

Sub ESB_OtlDeleteGenName()
Dim sts As Long
Dim Dimension As String
Dim GenNum As Integer
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
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)
'**********************************
'******* Delete Generation Name ***
'**********************************
Dimension = "Year"
GenNum = 2
GenName = "Qtr1 Qtr2 Qtr3 Qtr4"
If sts = 0 Then
   sts = EsbOtlDeleteGenName(hOutline,
    Dimension, GenNum)
End If
End Sub