RDMLX クライアント・アプリケーションの例については、「RDMLX の例」を参照してください。

以下は、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)
  • No labels