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