5.36.2 aXesTerminalServiceの使用

5.36.2 aXesTerminalServiceの使用

RDML/RDMLXまたはRPGまたはCなどの3GLのどちらでクライアント・アプリケーションを作成する場合でも、基本的な手順は同じです。

例えば、aXesターミナル・サーバーに接続し、画面の1つの値を埋め、送信（入力）するという一番単純なアプリケーションは、通常次のような順でサービス・コマンドを発行します。

JSM(X)_COMMAND

     SERVICE_LOAD

          CONNECT

          SETBYNAME

          SEND

          DISCONNECT

     SERVICE_UNLOAD

選択した開発言語に適用されるコマンドの詳細については、「Java Service Managerクライアント」を参照してください。

aXesTerminalServiceコマンドは、コマンド・キーワードで指定されたクライアント・プログラムの変数をフル活用して、クライアント・プログラムに変数情報を戻します。 このようなコマンド・キーワードの名前は'RTN'で始まります。

例えば、現在の5250画面の画面の行と列番号で参照されるフィールド値を受け取り、クライアント・プログラムの変数MYVALUEという結果を入れるには、LANSA RDMLXクライアンント・アプリケーションのコードは次のようになります。

define field(#myvalue) reffld(#std_text)

#jsmcommand := 'getbypos row(10) col(44) rtnvalue(MYVALUE) SERVICE_EXCHANGE(*FIELD)'

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

if (#myvalue = 'XYZ')

...

endif

この例で、プログラムの変数をサービスと交換し、サービスが必要な値を戻してこの変数を指定するためには、JSMサービスコマンド文字列にSERVICE_EXCHANGE(*FIELD)が存在することが必要です。

このJSMサービスコマンド文字列にのSERVICE_EXCHANGE(*FIELD)を省略してしまうと、サービスは指定の変数にアクセスできなくなり、プログラムが値を受け取りません。

注：

1. SERVICE_EXCHANGE(*FIELD)は上記に示されているように大文字で指定されなければなりません。

2. これはかなり簡潔にされた記述です。 クライアント・アプリケーションとJSMサービス間でプログラム変数を交換する方法は他にもあります。