GET
クライアント・アプリケーションはGETコマンドを発行して、aXesターミナル・セッションに関連する属性を受け取ってクライアント・プログラム変数に格納することができます。
注： 名前がRTNxxxで始まるクライアント・プログラムの変数に戻り値を受け取るためには、通常コマンド文字列にSERVICE_EXCHANGE(*FIELD)が指定されていなければなりません。 詳細は「aXesTerminalServiceの使用」 を参照してください。
任意
GET ------------- RTNCURSORROW ---- フィールド名 ----------------->
>-- RTNCURSORCOL ---- フィールド名 ----------------->
>-- RTNDEVICENAME --- フィールド名 ----------------->
>-- RTNJOBUSER ------ フィールド名 ----------------->
>-- RTNJOBNUMBER ---- フィールド名 ----------------->
>-- RTNSCREENWIDTH -- フィールド名 ----------------->
>-- RTNSCREENHEIGHT - フィールド名 ----------------->
>-- RTNSYSTEMNAME --- フィールド名 ----------------->
>-- RTNSIG ---------- フィールド名 ----------------->
>-- RTNSCREEN ------- フィールド名 -----------------|
キーワード
|
RTNCURSORROW |
現画面のカーソル位置の行番号コンポーネントを受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 |
|
RTNCURSORCOL |
現画面のカーソル位置の列番号コンポーネントを受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 |
|
RTNDEVICENAME |
現在のaXesターミナル・セッションにより使用された5250デバイス名を受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 |
|
RTNJOBUSER |
現在のaXesターミナル・セッションのi/OSジョブ名のユーザー名部分を受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 |
|
RTNJOBNUMBER |
現在のaXesターミナル・セッションのi/OSジョブ名のジョブ名部分を受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 |
|
RTNSCREENWIDTH |
現在のaXesターミナル・セッションの画面幅を受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 この値は現在表示されている画面を参照しているのであり、デバイスの最大性能ではないことに注意してください。 |
|
RTNSCREENHEIGHT |
現在のaXesターミナル・セッションの画面の高さを受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 この値は現在表示されている画面を参照しているのであり、デバイスの最大性能ではないことに注意してください。 |
|
RTNSYSTEMNAME |
現在のaXesターミナル・セッションのi/OSシステム名を受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 |
|
RTNSIG |
現画面の画面署名を受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 |
|
RTNSCREEN |
現画面の画面名を受け取るJSMとクライアント・プログラムとの間で交換されたフィールド名を指定します。 CONNECTコマンドでaXesプロジェクト名が指定された場合は画面名はユーザー定義の名前で、画面に1つの名前が割り当てられます。 それ以外の場合は画面署名が戻されます。 |
例
RDMLの例
DEFINE FIELD(#MYJOBUSR) REFFLD(#STD_TEXT)
DEFINE FIELD(#MYJOBNUM) REFFLD(#STD_TEXT)
CHANGE FIELD(#JSMCMD) TO('GET RTNJOBUSER(MYJOBUSR) RTNJOBNUMBER(MYJOBNUM) SERVICE_EXCHANGE(*FIELD)'
USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)
RDMLXの例
define field(#myjobusr) reffld(#std_text)
define field(#myjobnum) reffld(#std_text)
#jsmcommand := 'GET RTNJOBUSER(MYJOBUSR) RTNJOBNUMBER(MYJOBNUM) SERVICE_EXCHANGE(*FIELD)'
use builtin(jsmx_command) with_args(#jsmhandle #jsmcommand) to_get(#jsmstatus #jsmmessage)