在IBM i (OS/400)中使用RPG和CL程序生成PDF报表

本示例展示如何使用RPG和CL程序在IBM i (OS/400)中生成PDF报表。这种方法简单易行且灵活可定制，可以满足不同的报表生成需求。

// RPG程序
dCL-S pdf_lib   'LIBRARY_NAME'
dCL-S pdf_rqst  like(pdf_lib.text_rpg) 

pdf_rqst.customText = 'Hello World'

pdf_lib.generatePDF(pdf_rqst)

// CL程序
PGM                                                      
   DSPJOBLOG MSGID(MSGCPF0000)  /* 显示作业日志 */ 
   DCL VAR(&PDFGEN) TYPE(*CHAR) LEN(20) /* PDFGEN工具命令参数 */ 
   DCL VAR(&RPGPGM) TYPE(*CHAR) LEN(10) /* RPG程序名称 */ 
   DCL VAR(&PDFOUT) TYPE(*CHAR) LEN(200) /* 输出PDF文件名 */ 

   CHGVAR VAR(&RPGPGM) VALUE('PDFGENRPG') /* RPG程序名称 */ 
   CHGVAR VAR(&PDFOUT) VALUE('/PDFGEN/PDFGEN.pdf') /* 输出PDF文件路径 */ 
   CHGVAR VAR(&PDFGEN) VALUE('RUNPROGRAM PGM(' *CAT &RPGPGM + 
     *TCAT ') PARM('' ' + *TCAT &PDFOUT *TCAT ''')') /* PDFGEN工具命令 */ 

   CALL QSYS/QCMDEXC PARM(&PDFGEN) /* 执行PDFGEN命令 */ 
ENDPGM

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com