次のサンプルでは、プロセス 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画面で何を実行するかやどのように操作するかは異なります。要件に合わせて使用する手法を調整する必要があります。