RampMessage Event
A message is issued by RAMP or the underlying 5250 application.
Parameters
|
This table illustrates the available message types and their causes:
|
Remarks
It is up to the developer how to handle different types of errors.
To cause a message to pop up automatically, use the #com_owner.avshowmessages method. During development it might be useful to show the underlying 5250screen when a fatal error occurs. You can do so by changing the Screen wrapper's visibility and/or display position.
Example
Evtroutine Handling(#screen wrapper.uRampMessage) Umessagetype(#MsgType) Umessagetext(#MsgText)
Case (#msgtype.value)
When Value_Is('= VF_ERROR')
* Optional. In design mode, making the screen wrapper visible allows you to show the 5250 screen.Set Com(#myscreen_wrapper) Visible(True)
When Value_Is('= VF_INFO')
Message Msgid(dcm9899) Msgf(dc@m01) Msgdta(#msgtext.value)
When Value_Is('= VF_UNKNOWN_FORM')
Message Msgid(dcm9899) Msgf(dc@m01) Msgdta(#msgtext.value)
When Value_Is('= VF_INIT_ERROR')
Message Msgid(dcm9899) Msgf(dc@m01) Msgdta(#msgtext.value)
Endcase
Endroutine