3.3.6 LANSA RDMLX クライアント・プログラムの例

RDMLX クライアント・アプリケーションの例については、「&<a href="intengbl_rdmlx_examples.htm"&>RDMLX の例&</a&>」を参照してください。
以下は、JSM への接続を開いて閉じる非常に簡単な LANSA ファンクションです。エラーが発生した場合、ステータスとメッセージを確認できます。このプログラムはサービスを使用しません。接続のトレースを有効にして、接続のオープンとクローズのトレースを確認できます。
例 1 - デフォルトを使用 (JSMCLTDTA データ・エリア)
FUNCTION OPTIONS(*DIRECT)
 
USE BUILTIN(JSMX_BEGIN)
 
USE BUILTIN(JSMX_OPEN) TO_GET(#JSMXSTS #JSMXMSG #JSMXHDLE1)
IF COND('#JSMXSTS *NE OK')
 
ENDIF
 
USE BUILTIN(JSMX_CLOSE) WITH_ARGS(#JSMXHDLE1) TO_GET(#JSMXSTS #JSMXMSG)
IF COND('#JSMXSTS *NE OK')
 
ENDIF
 
USE BUILTIN(JSMX_END)
 
例 2 - サーバー引数を使用
FUNCTION OPTIONS(*DIRECT)
 
USE BUILTIN(JSMX_BEGIN)
 
#JSMSRV := 'LOCALHOST:4560'
 
USE BUILTIN(JSMX_OPEN) WITH_ARGS(#JSMSRV) TO_GET(#JSMXSTS #JSMXMSG #JSMXHDLE1)
IF COND('#JSMXSTS *NE OK')
 
ENDIF
 
USE BUILTIN(JSMX_CLOSE) WITH_ARGS(#JSMXHDLE1) TO_GET(#JSMXSTS #JSMXMSG)
IF COND('#JSMXSTS *NE OK')
 
ENDIF
 
USE BUILTIN(JSMX_END)
 
以下の例は、組み込み関数 JSMX の使用方法と順序を示しています。これは完全な RDML ファンクションではありません。この例では、JSMX_OPEN が Java Service Manager への接続を開き、スレッドを開始します。
一連の JSMX_COMMAND が以下の目的で発行されます。

• FTPService サービスをロードする
• ホストに接続する
• 指定したユーザー/パスワードを使用してログインする
• ディレクトリ・パスを変更する
• モードをバイナリーに設定する
• ファイルをFTPサイトに入れる
• FTP セッションを終了する
• サービスをアンロードする

JSM_CLOSE で接続を終了します。
FUNCTION OPTIONS(*DIRECT)
 
USE BUILTIN(JSMX_BEGIN)
 
USE BUILTIN(JSMX_OPEN) WITH_ARGS(#JSMSRV) TO_GET(#JSMXSTS #JSMXMSG #JSMXHDLE1)
 
JSMXCMD := 'SERVICE_LOAD SERVICE(FTPSERVICE)'
USE BUILTIN(JSMX_COMMAND) WITH_ARGS(#JSMXHDLE1 JSMXCMD) TO_GET(#JSMSTS #JSMMSG)
 
JSMXCMD := 'CONNECT HOST(LOCALHOST)'
USE BUILTIN(JSMX_COMMAND) WITH_ARGS(#JSMXHDLE1 JSMXCMD) TO_GET(#JSMSTS #JSMMSG)
 
JSMXCMD := 'LOGIN USER(user) PASSWORD(code)'
USE BUILTIN(JSMX_COMMAND) WITH_ARGS(#JSMXHDLE1 JSMXCMD) TO_GET(#JSMSTS #JSMMSG)
 
JSMXCMD := 'CHGDIR PATH(/JSM)'
USE BUILTIN(JSMX_COMMAND) WITH_ARGS(#JSMXHDLE1 JSMXCMD) TO_GET(#JSMSTS #JSMMSG)
 
JSMXCMD := 'BINARY'
USE BUILTIN(JSMX_COMMAND) WITH_ARGS(#JSMXHDLE1 JSMXCMD) TO_GET(#JSMSTS #JSMMSG)
 
JSMXCMD := PUT FROM(file) TO(/TMP/DIR/file)'
USE BUILTIN(JSMX_COMMAND) WITH_ARGS(#JSMXHDLE1 JSMXCMD) TO_GET(#JSMSTS #JSMMSG)
 
JSMXCMD := 'QUIT'
USE BUILTIN(JSMX_COMMAND) WITH_ARGS(#JSMXHDLE1 JSMXCMD) TO_GET(#JSMSTS #JSMMSG)
 
JSMXCMD := 'SERVICE_UNLOAD')
USE BUILTIN(JSMX_COMMAND) WITH_ARGS(#JSMXHDLE1 JSMXCMD) TO_GET(#JSMSTS #JSMMSG)
 
USE BUILTIN(JSMX_CLOSE) WITH_ARGS(#JSMXHDLE1) TO_GET(#JSMXSTS #JSMXMSG)
 
USE BUILTIN(JSMX_END)