SETBYPOS

LANSA Integrator

SETBYPOS


SETBYPOSコマンドは、現在のaXesターミナル画面のフィールド値を、画面の行番号と列番号により参照して設定し、(任意で)現在のaXes画面データをaXesターミナル・サーバーに送信することができます。 これは5250ターミナルでタイプする時と似ています。

注: 名前がRTNxxxで始まるクライアント・プログラムの変数に戻り値を受け取るためには、通常コマンド文字列にSERVICE_EXCHANGE(*FIELD)が指定されていなければなりません。 詳細は「aXesTerminalServiceの使用」 を参照してください。

 

                                                          必須

 

 SETBYPOS -------- ROW ------------- 行番号 ----------------->

  

               >-- COL ------------- 列番号 -------------->

  

               >-- VALUE ----------- 値 ----- ---------------->

 

                                                          任意 

 

               >-- SENDKEY ---------(なし) ---------------------->

                                     ENTER

                                     F1  … F9

                                     F10 … F24

                                     HELP 

                                     PRINT 

                                     PAGE_UP 

                                     PAGE_DOWN

                                     ROLL_UP 

                                     ROLL_DOWN 

  

               >-- RTNSIG -- ------- フィールド名  ---------------->

  

               >-- RTNSCREEN ------- フィールド名  ----------------|

 

キーワード

ROW

必須。 必要なフィールドの画面行番号を指定します。 行と列は両方とも指定のフィールドの最初の位置を示していないといけません。

COL

必須。 必要なフィールドの画面列番号を指定します。 行と列は両方とも指定のフィールドの最初の位置を示していないといけません。

VALUE

必須。 指定のフィールドに設定する値を指定します。

SENDKEY

このキーワードに値が指定された場合、コマンドは(フィールド値が正常に設定された後に)ここに指定のファンクション・キーを使ってaXesターミナル・サーバーに現在のaXes画面データを送信します。 上記に示すファンクション・キーのいずれかを使用できます。 指定されない場合は、送信処理は実行されません。

RTNSIG

処理後に表示される画面の画面署名を受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。

RTNSCREEN

処理後に表示される画面の画面名を受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 CONNECTコマンドでaXesプロジェクト名が指定された場合は画面名はユーザー定義の名前で、画面に1つの名前が割り当てられます。 それ以外の場合は画面署名が戻されます。

 

RDMLの例

DEFINE FIELD(#MYSCREEN) REFFLD(#STD_TEXT)

CHANGE FIELD(#JSMCMD) TO('SETBYPOS ROW(8) COL(44) VALUE(ABC001) RTNSCREEN(MYSCREEN) SERVICE_EXCHANGE(*FIELD)'

USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)

 

RDMLXの例

define field(#myscreen) reffld(#std_text)

#jsmcommand := 'SETBYPOS ROW(8) COL(44) VALUE(ABC001) RTNSCREEN(MYSCREEN) SERVICE_EXCHANGE(*FIELD)'

use builtin(jsmx_command) with_args(#jsmhandle #jsmcommand) to_get(#jsmstatus #jsmmessage)