Page History
...
RDMLX クライアント・アプリケーションの例については、「&<a href="intengbl_rdmlx_examples.htm"&>RDMLX の例&</a&>」を参照してください。RDMLX クライアント・アプリケーションの例については、「RDMLX の例」を参照してください。
以下は、JSM への接続を開いて閉じる非常に簡単な LANSA ファンクションです。エラーが発生した場合、ステータスとメッセージを確認できます。このプログラムはサービスを使用しません。接続のトレースを有効にして、接続のオープンとクローズのトレースを確認できます。
例 1 - デフォルトを使用 (JSMCLTDTA データ・エリア)
| Code Block |
|---|
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 - サーバー引数を使用
| Code Block |
|---|
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 で接続を終了します。
| Code Block |
|---|
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) |
...