次のサンプルでは、プロセス PSLSYS ファンクション INQUIRE として LANSA に組み込まれている 5250 デスティネーション画面を使用します。これを使用すると、社員の詳細を表示、更新できます。最初は、次のような到着スクリプトが含まれています。
vHandle_ARRIVE: function(oPayload, oPreviousForm)
{
/* If the department input field exists on the screen, display it */
if ( CHECK_FIELD_EXISTS("DEPTMENT") )
{
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);
},
これは、次のように表示されます。
この 5250 画面には、次の名前のフィールドがあります。
|
SURNAME |
社員姓 |
|
GIVENAME |
社員名 |
|
ADDRESS1 |
住所１ |
|
ADDRESS2 |
住所２ |
|
ADDRESS3 |
国および都道府県 |
|
DEPTMENT |
部門コード |
|
SECTION |
課コード |
|
DATE_START_DDMMYY |
入社日付 |
|
DATE_END_DDMMYY |
退職日付 |
|
DATE_ACQ_DDMMYY |
スキル取得日 (サブファイル列) |
|
PageDownMarker |
サブファイルにさらにデータがあることを示す "+" 記号 |
これらのフィールドは単なる例であることに注意してください。5250画面で何を実行するかやどのように操作するかは異なります。要件に合わせて使用する手法を調整する必要があります。
標準レイアウト・ファンクションにより画面をジェネリックに変更する
