在IBM i (OS/400)上实现PDF文件生成

使用RPG程序在IBM i (OS/400)上生成PDF文件，并使用发邮件的方式发送的示例代码。该示例使用了外部工具Ghostscript来处理PDF生成与合并，同时使用SMTP邮件服务进行附件发送。

     /include qsysinc/qrpglesrc,pgmsrvpgm
     dcl-pr Go_GeneratePDF extpgm('GENPDF')
      FileName char(200) const
      prtName char(20) const
     end-pr

     /FREE
      dcl-s cmd        char(400) inz('');
      dcl-s gsCommand  char(400) inz('');
      dcl-s pdfFile    char(200) inz('');
      dcl-s spoolFile  char(10) inz('');

      spoolFile = 'SPLFNAME'; //替换为要处理的打印文件名称

      // 生成PDF文件的命令
      gsCommand = 'gswin64c -sDEVICE=pdfwrite -dPDFSETTINGS=/printer -dNOPAUSE -dBATCH -dSAFER -dNODISPLAY -sOutputFile='
                 + %trimr(pdfFile) + ' ' + spoolFile;

      // 执行Ghostscript命令，生成PDF文件
      system_exec(gsCommand);

      // 发送邮件，将PDF文件作为附件发送
      cmd = 'QSH CMD(''echo '':|mail -s "PDF Attachment" -a ' + pdfFile + ' email@example.com'')';
      system(cmd);

      return;
     /END-FREE

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