ステップ 2. テンプレート JSMXSKEL を使用してファンクションを作成する

INT001 - JSMの基本操作の開始
このステップでは、JSMを開いて終了し、テンプレートJSMXSKELを使用して、FTPServiceサービスをロードするテスト・ファンクションを作成します。
1.      LANSA 開発環境を使用する場合、演習用に指定された区画にサインオンします。
2.      以下のフィールドがリポジトリに定義されていることを確認します。これらのフィールドはこの演習やその他の演習でも必修となります。これらのフィールドが存在しない場合は、以下に示された内容で作成する必要があります。

• JSMXCMD STRING(65535) (RDMLX フィールドであること)
• JSMXHDLE1 ALPHA(4)
• JSMXSTS ALPHA(20)
• JSMSTS ALPHA(20)
• JSMXMSG ALPHA(200)
• JSMMSG ALPHA(200)

3.      iiiPRO01 JSM テスト プロセスという名前で新しい LANSA プロセスを作成します。iii は一意の 3 文字です (プロセス名がすでに存在する場合は、iii は別の文字を選択してください。)
4.      プロセス iiiPRO01 に属する iiiFN01 JSM オープン/クローズ という新しいファンクションを作成します。\[RDMLXフィールドの保管の確認\] チェックボックスが選択されていることを確認します。ファンクションがアプリケーション・テンプレートにより生成されるように指定します (テンプレート\] ドロップダウンで JSMXSKEL を選択)。
5.      以下の表に示すように、テンプレートの質問に回答します。

6.      iiiFN01 ファンクションを編集して、生成された RDMLX コード内容を確認します。
         ファンクションは以下のように表示されています。

• ====================================================
  *  Process ........:  IIIPRO01
  *  Function .......:  IIIFN01
  *  Created on .....:  16/07/13  at  12:19:30
  *  Description ....:  Test 01
  *  Template........:  JSMXSKEL
• ====================================================
  Function Options(*DIRECT)
  *
  *  OPEN JSM AND VERIFY STATUS
  Use Builtin(JSMX_OPEN) To_Get(#JSMSTS #JSMMSG #jsmxhdle1)
  Execute Subroutine(CHECK_STS) With_Parms(#jsmxhdle1)
  *
• BUILD THE SERVICE LOAD COMMAND
  #JSMXCMD := 'SERVICE_LOAD'
  Execute Subroutine(KEYWRD) With_Parms(#JSMXCMD 'SERVICE' 'FTPSERVICE')
  Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMSTS #JSMMSG)
  Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
  *
  *     YOUR OWN LOGIC HERE
  *
• UNLOAD SERVICE
  #JSMXCMD := 'SERVICE_UNLOAD'
  Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMSTS #JSMMSG)
  Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
• CLOSE JSM AND VERIFY STATUS
  Use Builtin(JSMX_CLOSE) With_Args(#JSMXHDLE1) To_Get(#JSMSTS #JSMMSG)
  Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
  *
  Return
  *
• Subroutine to build JSM commands. existing JSM command
  *
  Subroutine Name(KEYWRD) Parms((#W_CMDX *BOTH) (#W_KEYWRD *RECEIVED) (#W_KEYVAL *RECEIVED))
  Define Field(#W_CMDX) Reffld(#JSMXCMD)
  Define Field(#W_KEYWRD) Reffld(#STD_TEXT)
  Define Field(#W_KEYVAL) Reffld(#STD_TEXTL)
  #W_CMDX += ' ' + #W_KEYWRD + '(' + #W_KEYVAL + ')'
  Endroutine
  *
  *  Check the status of the JSM command issued
  *
  Subroutine Name(CHECK_STS) Parms(#W_HDLE)
  *
  Define Field(#MSGDTA) Type(*CHAR) Length(132)
  Define Field(#W_HDLE) Type(*CHAR) Length(4)
  *
  If Cond('#JSMSTS *NE OK')
  *
  #MSGDTA := 'Error Status Code: ' + #JSMSTS
  Message Msgid(DCM9899) Msgf(DC@M01) Msgdta(#MSGDTA)
  #MSGDTA := 'Error Message: ' + #JSMMSG
  Message Msgid(DCM9899) Msgf(DC@M01) Msgdta(#MSGDTA)
  Endif
  *
  Endroutine
   
           JSM を開く際に利用されるコマンド、JSM、FTPService サービスをロードするコマンド、サービスをアンロードするコマンド、JSMXを終了するコマンドに着目してください。
• JSM コマンドのキーワードとその値を簡単に生成できるように、KEYWRD サブルーチンが使われています。サブルーチン KEYWRD の詳細は、「INT002 - FTP サービスの利用 」で説明されています。
• エラー処理は、各 JSM コマンドの後に CHECK_STS サブルーチンが使用されています。このルーチンはエラー・メッセージの書式を整えるだけです。エラーの発生時にファンクションを中断するわけではありません。
• CHECK_STS サブルーチンには、状況をチェックするハンドルを指定するパラメータが必要です。これは、JSM サーバーへの複数の接続が同時に開くことがあるためです。