RampMessageイベント
RAMPまたはベースとなる5250アプリケーションにより、メッセージが発行されます。
パラメータ
uMessageType | Char 256 | 下の表のようなメッセージのタイプを指定する文字列 |
uMessageText | Char 132 | メッセージのテキストを含む文字列 |
この表は、使用可能なメッセージ･タイプとその原因を示しています。
タイプ | 原因 | 説明 |
VF_ERROR | 致命的なエラー。 | 何らかの理由で、要求の実行の処理に失敗しました。 たとえば、失敗したナビゲーション要求などが原因です。 |
VF_INFO | 5250アプリケーションからのメッセージ。 | 背後で実行されている実際の5250プログラムによって送信されるメッセージ。 たとえば、失敗した妥当性検査などです。 |
VF_INIT_ERROR | 初期化に失敗した画面ラッパー。 | これは通常、指定されたセッション･ユーザーのオブジェクト･タイプにより定義済みセッションが提供されないときに発生します。 または、uCommandプロパティを設定していないときに発生します(「画面ラッパーの基本」を参照)。 |
VF_UNKNOWN_FORM | ナビゲーション中に未定義のフォームが見つかりました。 |
|
備考
異なるタイプのエラーを処理する方法は、開発者にかかっています。
メッセージを自動的にポップアップで表示するには、#com_owner.avshowmessagesメソッドを使用します。致命的なエラーが発生した場合にベースとなる5250画面を表示すると、開発時に役立ちます。このように表示するには、画面ラッパーの表示および表示位置を変更します。
例
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