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 SubEsbAutoLogin()