ステップ5. ファンクションiiiFN18の作成 - 社員用PDF出力をテストする
1. プロセスiiiPRO10に属するRDMLファンクション「iiiFN18 - 社員用PDF出力をテストする」を作成します。
2. コードを以下に置き換えます。
Function Options(*DIRECT)
Override Field(#STD_FLAG) Label('Report Type')
Group_By Name(#SCREEN) Fields((#STD_FLAG *L004 *P002) (#EMPNO *L007 *P002) (#SURNAME *L008 *P002) (#DEPTMENT *L009 *P002))
Begin_Loop
Request Fields(#SCREEN) Identify(*LABEL) Text((*TMAP001 001 001))
Begincheck
Valuecheck Field(#STD_FLAG) With_List('S' 'D' 'E') Msgtxt('Report Type must be D, E or S')
Case Of_Field(#STD_FLAG)
When Value_Is('= E')
Filecheck Field(#EMPNO) Using_File(pslmst) Msgtxt('Employee not found')
When Value_Is('= D')
Filecheck Field(#DEPTMENT) Using_File(deptab) Msgtxt('Department not found')
When Value_Is('= S')
If Cond('#SURNAME = *blanks')
Set_Error For_Field(#SURNAME)
Message Msgtxt('Surname may not be blank')
Endif
Endcase
Endcheck
Exchange Fields(#EMPNO #DEPTMENT #SURNAME #STD_FLAG)
Call Process(*DIRECT) Function(IIIFN17) Exit_Used(*NEXT) Menu_Used(*NEXT)
End_Loop
3. 呼び出すファンクション名を自分のイニシャルに変えます。
4. IBM i サーバーでファンクションを実行する場合は、サーバーにチェックインし、コンパイルします。
5. ファンクションiiiFN18を実行してファンクションiiiFN17をテストします。
6. 社員番号、社員姓、部門により選択した時にPDFが作成されたかどうかを確認します。