Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

これで、RAMP 画面の到着スクリプトから呼び出すことができる、SHARED,ApplyStandardLayout という標準ファンクションができました。

例えば、サンプルのデスティネーション画面の到着スクリプトを以下のように変更して、スクリプトが

...

5250

...

画面を表示する直前にこの新しいファンクションを使用します。

  
   vHandle_ARRIVE: function(oPayload, oPreviousForm)
   {
     /* If the department input field exists on the screen, display it */
 
     if ( CHECK_FIELD_EXISTS("DEPTMENT") )
     {
 
        SHARED.ApplyStandardLayout();
 
        SHOW_CURRENT_FORM(true);
        HIDE_5250_BUTTONS();
        SETCURSORTOFIELD("SURNAME");
        SETBUSY(false);
     }
 
     /* Otherwise send an F21 key to make the screen input capable  */
 
     else
     {
        SENDKEY(KeyF21);
     }
 
     /* <ARRIVE /> - Do not remove or alter this line */
 
     return(true);
   },

...