EsbGetMessage() retrieves the top message from the message stack filled during VB API function execution if ClientError in ESB_INIT_T structure has been set to ESB_TRUE during EsbInit().
EsbGetMessage (hInst, ErrLevel, ErrNum, ErrMessage, szErrMessage)
ByVal hInst As Long
ErrLevel As Integer
ErrNum As Long
ByVal ErrMessage As String
ByVal szErrMessage As Integer
| hInst | Essbase VB API instance handle. |
| ErrLevel | Pointer to variable to receive message level. |
| ErrNum | Pointer to variable to receive message number in the message database. |
| ErrMessage | Buffer to receive a message string. |
| szErrMessage | Size of the buffer to receive a message string. |
Declare Function EsbGetMessage Lib "ESBAPIW" (ByVal hInst As Long, ErrLevel As Integer, ErrNum As Long, ByVal Message As String, ByVal szMessage As Integer) As Long
Sub ESB_GetMessage ()
Dim Items As Integer
Dim AppName As String
Dim DbName As String
Dim FilterName As String
Const szMessage = 256
Dim Message As String * szMessage
Dim Number As Long
Dim Level As Integer
Dim sts As Long
AppName = "Demo"
DbName = "Basic"
FilterName = "Filter"
'****************
' Get Filter List
'****************
sts = EsbGetFilterList (hCtx, AppName, DbName,
FilterName, Items)
'*******************************
' Process all messages if error
' occurred till the bottom of the
' message stack enItemsered
'*******************************
If sts > 0 Then
sts = EsbGetMessage (hInst, Level, Number,
Message, szMessage)
Do While Mid$(Message, 1, 1) <> Chr$(0)
Print Level
Print Number
Print Message
sts = EsbGetMessage (hInst, Level,
Number, Message, szMessage)
Loop
End If
End Sub
EsbAutoLogin()