EsbGetVariable

代替変数の値を取得します。

構文

            EsbGetVariable
             (
            hCtx, pVariable
            )
ByVal 
            hCtx
                  As Long
      
            pVariable
             As ESB_PVARIABLE_T

パラメータ	説明
hCtx	APIへのコンテキスト・ハンドル。
pVariable	指定された代替変数の説明を含む構造体を指すポインタ。

戻り値

正常終了の場合、EsbGetVariable()により構造体ESB_VARIABLE_TのVarValueフィールドに代替変数の値が戻されます。

例

         Declare Function EsbGetVariable Lib "esbapin" (ByVal hCtx As Long, pVariable As ESB_VARIABLE_T) As Long

Sub Esb_GetVariable ()

Dim sts As Long
Dim oVariable As ESB_VARIABLE_T

'  Get value of "QuarterName" Susbtitution Variable at the Sample application level
   oVariable.Server = "Localhost"
   oVariable.AppName = "Sample"
'  ** Note that DbName has been left empty
   oVariable.VarName = "QuarterName"
 
   sts = EsbGetVariable(hCtx, oVariable)

   MsgBox oVariable.VarValue
   
End Sub