画面ラッパーの定義

画面ラッパーは、クラスVF_SY122のVL再利用可能パーツです。内部のあらゆるタイプのルーチンとは対照的に、グローバルなスコープとして定義する必要があります。

     Define_Com Class(#vf_sy122) Name(#myscreen_wrapper) Parent(#PANL_1) Visible(False) Displayposition(3)

キー･ポイント:

• 初期表示を False に設定します。これにより、指定しない限り表示されなくなります。たとえば、致命的エラーが発生したときにデザイン･モードで表示すれば、現在の5250画面の状態を確認するオプションを選択できます。
• メイン･パネルの中央に配置されたパネルの子にすることができます。これにより、致命的エラーを追跡するために表示することが簡単になります。

uCommand プロパティの設定

コマンドのuInitializeメソッド･ルーチンで、画面ラッパーのuCommandプロパティを設定します。

     Mthroutine Name(uInitialize) Options(*REDEFINE)
     *Do any initialization defined in the ancestor
     Invoke Method(#Com_Ancestor.uInitialize)
     Set Com(#myscreen_wrapper) Ucommand(#com_owner)
     Endroutine

キー･ポイント:

• uCommand は常に #com_owner に設定します。
• uCommand の設定に失敗すると、タイプ VF_INIT_ERROR のエラー･メッセージが表示されます。

RAMP を使用可能にして実行を開始

初めて実行するときは、通常はコマンドの uExecute メソッド内で MakerampTSavailable メソッド を呼び出します。

     #myscreen_wrapper.MakerampTSavailable 

キー･ポイント:

• コマンドの初回実行時に初めて RAMP を使用可能にする場合、RAMP がホストに接続されていないため、イベントの起動には通常より少し時間がかかります。
• RampTSAvailable イベント・ルーチンでコマンドが制御を取り戻します。

RampTSAvailable イベントをリッスン 

RAMP が接続され、対話処理の準備ができると、このイベントのコマンドにシグナルを戻します。つまり、ナビゲーションを開始する準備が整っています。

例:

     Invoke Method(#myscreen_wrapper.navigatetoscreen) Name(EMPLOYEE_SKILLS)

RampMessage イベントをリッスン 

エラー処理ロジックを記述し、RampMessage イベント の 5250 アプリケーションで発生したメッセージを処理します。