ステップ3. 単一ページのPDFを生成するRDMLXファンクションを作成する

ステップ3. 単一ページのPDFを生成するRDMLXファンクションを作成する

このステップでは、INT013 - 付録BのRDMLXソースを元にRDMLXファンクションを作成します。このファンクションを完成させると、社員１名のPDFドキュメントを生成することができます。

1.  新しいプロセス「iiiPRO10 - PDF例」を作成します。

2.  テンプレートを使用せずに新しいRDMLXのファンクション「iiiFN16 - 社員のPDFを作成」を作成します。

3.  コードをINT013 - 付録BのRDMLXソースと置き換えます。　

4.  ファンクションを保存し、その内容を確認します。プログラムの始めにEMPNOやSTD_TEXTLなど、複数のフィールド値が設定されていることに注意してください。このファンクションは単一のハードコーディングされた社員番号を処理します。

5.  次のコメント行を探します。

* Create PDF Document

     このコメントの次に、既にロードされているPDFDocumentServiceを使用するコードを追加します。CREATEコマンドを利用して、テンプレートiii_PDF_Template.xml をもとにPDFドキュメントを作成します。

6.  ソースコードに* Load Serviceコードの3つのステートメントをコピーし貼り付けます。CHANGE Field(#JSMXCMD)コマンドを修正し、CREATEコマンドを定義します。

     これにより、JSMInstanceのルートにPDFファイルが書きこまれます。実際のアプリケーションでは、ユーザーまたは顧客により準備された特定のフォルダに出力する場合が多いでしょう。

     完了したコードは次のようになります。

* Create PDF Document

Change Field(#JSMXCMD) To('CREATE DOCUMENT(iii_EMPREP.pdf) CONTENT(xml/iii_PDF_Template.xml)')

Use Builtin(JSMX_COMMAND) With_Args(#jsmxhdle1 #JSMXCMD) To_Get(#JSMSTS #JSMMSG)

Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)

7.  変更内容を保存します。

8.  次のコメント行を探します。

* If found add content

     このコメントのすぐ前のコードで、必要な社員詳細フィールドが含まれる作業リスト(#HEADER) の1つのエントリーが作成されています。

9.  このコメントに続き、社員詳細を含むHEADER のロジックと内容を追加します。

     以下のコードを追加して、* Add content HEADER のロジックを完成させます。

If_Status Is(*OKAY)
* Add content HEADER
Else
Message Msgtxt('Employee A0090 not found')
Endif
 

10. 以下の情報をもとに、、* Add content HEADER のコメント行の後にCHANGEコマンドでJSMXCMDフィールドにADDコマンドを定義します。

11. 以下の情報をもとに、JSMX_COMMANDのUSEコマンドを定義します。

     注：作業リストの#HEADERを3番目の引数として引き渡します。

12. 最後にEXECUTEコマンドを追加して、JSMのステータスを確認するサブルーチンを実行します。

完了したコードは以下のようになります。

If_Status Is(*OKAY)
Change Field(#JSMXCMD) To('ADD CONTENT(HEADER)')
Use Builtin(JSMx_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD #HEADER) To_Get(#JSMSTS #JSMMSG)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
Else
Message Msgtxt('Employee A0090 not found')

Endif

13.  変更内容を保存します。

14.  以下のコメント行を探します。

* If found add employee skills list

15. 次のロジックを追加して、この中でJSMロジックを完成させます。

If_Status Is_Not(*error)
* add SKILLTBL content
 
Else
Message Msgtxt('Employee skills not found')
Endif
 

16. * Add SKILTBL contentのコメントの後にCHANGEコマンドを追加して、以下の情報をもとにJSMXCMDフィールドにADDコマンドを定義します。

17. USEコマンドを追加して、以下の情報をもとに、JSMX_COMMANDのBIFを定義します。

18. EXECUTEコマンドを追加し、JSMのステータスを確認するサブルーチンを実行します。

完了したコードは以下のようになります。

If_Status Is_Not(*error)
* add SKILLTBL content
Change Field(#JSMXCMD) To('ADD CONTENT(SKILLTBL)')
Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMSTS #JSMMSG #SKILLTBL)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
Else
Message Msgtxt('Employee skills not found')
Endif
 

19. ファンクションをコンパイルします。IBM i サーバーでIntegratorを実行している場合は、チェックインし、ファンクションをサーバー上でコンパイルします。

20. ファンクションiiiFN16 - 社員のPDFを作成を実行します。

JSMインスタンスのルートにある出力PDFドキュメントを探します。IBM i サーバーで実行している場合は以下のようなパスになります。

/LANSA_<pgmlib>/jsm/instance

     <pgmlib>はLANSAライブラリ名です。

PDFドキュメントは以下のようになっているはずです。