INT013 - 付録 B
INT013 - PDFDocumentService を使用して PDF ドキュメントを作成
ファンクション「iiiFN14 – 社員 1 名分の PDF 作成」の RDMLX ソース
Function Options(*DIRECT)
- RDML コマンド の開始 **********
#empno := A1009
#std_textl := 'ACME Manufacturing Company, Chicago'
#std_name := #datex.asdisplayString( DDsMMsCCYY )
#rep1page := 1
Def_List Name(#footer1) Fields(#std_name #rep1page) Type(*working)
Define Field(#ID) Type(*CHAR) Length(5)
Define Field(#FNAME) Type(*CHAR) Length(20)
Define Field(#SNAME) Type(*CHAR) Length(30)
Def_List Name(#SKILLTBL) Fields(#SKILDESC #GRADEDES #STD_TEXT #COMMENT) Type(*WORKING) Entrys(*max)
Def_List Name(#header) Fields(#std_textl #fullname #address1 #address2 #address3 #postcode #phonebus #phonehme #deptdesc #secdesc) Type(*working) Entrys(*max) - Open JSM
Use Builtin(JSMX_OPEN) To_Get(#JSMSTS #JSMMSG #jsmxhdle1)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
- Load Service
#jsmxcmd := ('SERVICE_LOAD SERVICE(PDFDOCUMENTSERVICE)')
Use Builtin(JSMX_COMMAND) With_Args(#jsmxhdle1 #jsmxcmd) To_Get(#JSMSTS #JSMMSG)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
- PDF ドキュメントの作成
- ロゴ追加
Change Field(#JSMXCMD) To('ADD CONTENT(LOGO) ')
Use Builtin(JSMx_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMSTS #JSMMSG)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
- Add Header Employee Info
Clr_List Named(#header)
Fetch Fields(*all) From_File(pslmst) With_Key(#empno) Val_Error(*next)
#fullname := #surname + ', ' + #givename
Fetch Fields(#deptdesc) From_File(deptab) With_Key(#deptment)
Fetch Fields(#secdesc) From_File(sectab) With_Key(#deptment #section)
Add_Entry To_List(#header) - 見つかった場合、コンテンツを追加
- 社員スキル取得
- ======================
Clr_List Named(#skilltbl)
Group_By Name(#skills) Fields(#SKILCODE #COMMENT #DATEACQ #SKILDESC #grade)
Select Fields(#skills) From_File(pslskl) With_Key(#empno) Nbr_Keys(*compute) Val_Error(*next)
Fetch Fields(#skills) From_File(skltab) With_Key(#skilcode) Val_Error(*next)
#std_text := #dateacq.asdate( MMDDYY ).asdisplayString( MMsDDsCCYY ) - if your locale date format is not MMDDYY, change this value to DDMMYY
Execute Subroutine(grade)
Add_Entry To_List(#skilltbl)
Endselect
- 見つかった場合、社員のスキル・リストを追加
- フッターの追加
clr_list #FOOTER1
Add_entry #FOOTER1
#jsmxcmd := 'ADD CONTENT(FOOTER1)'
Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD #FOOTER1) To_Get(#JSMSTS #JSMMSG)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
- ドキュメントを閉じる
#jsmxcmd := CLOSE
Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMSTS #JSMMSG)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
- PDF サービスのアンロード
#jsmxcmd := SERVICE_UNLOAD
Use Builtin(JSMX_COMMAND) With_Args(#JSMXHDLE1 #JSMXCMD) To_Get(#JSMSTS #JSMMSG)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
- JSM を閉じる
Use Builtin(JSMX_CLOSE) With_Args(#jsmxhdle1) To_Get(#JSMSTS #JSMMSG)
Execute Subroutine(CHECK_STS) With_Parms(#JSMXHDLE1)
If (#jsmsts = OK)
Message Msgtxt('ドキュメント iii_EMPREP.pdf が作成されました')
Endif
*
* 発行された JSM コマンドのステータスを確認
*
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
*
Def_List Name(#WL_MSGS) Fields(#JSMSTS #JSMMSG) Type(*WORKING) Entrys(*max)
Add_Entry To_List(#WL_MSGS)
Endroutine
Subroutine Name(grade)
Case (#grade)
When (= P)
#gradedes := 'Pass'
When (= F)
#gradedes := 'Fail'
When (= M)
#gradedes := 'Merit'
When (= D)
#gradedes := 'Distinction'
Endcase
Endroutine - RDML コマンド終了 **********