使用RPGLE在IBM i（OS/400）上创建PDF文件

本示例介绍如何使用RPGLE语言在IBM i操作系统上利用第三方库生成PDF文件。实现方式为使用RPGLE中可调用C语言的特性，调用第三方库生成PDF文件，并将其保存至本地文件系统。

/*******************************************************
     * RPGLE code to create a PDF file on IBM i (OS/400)    *
     * using external library                               *
     *******************************************************/

     H DFTACTGRP(*NO) BNDDIR('INKPLIB/INKPBND') ACTGRP('INKPACT3')  
     D myFileName      S            256    INZ('/PDF/myPDF.pdf')
     D myPDFOutput     S                   LIKE(pdfOutLib_t) 
     D pdfOutLib_t     DS          256    qualified
     D                                 based(libname)
     D                                 qualified
     D                                 based(function)
     D                                 qualified     
     D pdfCreator      PR                  extproc(*LIB)
     D  fileName                     LIKE(pdfFileName_t) 
     D  pdfOutput                   LIKE(pdfOutLib_t) 
     D pdfFileName_t   DS                  qualified
     D                                 based(pFile)
     D                                 qualified
     D                                 based(Name)
     D                                 qualified
     D                                 based(Extension)
     D Name            DS                  20    INZ('')
     D Extension       DS                   6    INZ('')
     D pFile           DS                   50
     D libname         S            256    INZ('PDFLIB')
     D function        S            256    INZ('createPdfFile')

     C                   eval      %trim(Name)     = 'myPDF'
     C                   eval      %trim(Extension)= 'pdf'

     C                   callp     pdfCreator(myFileName: myPDFOutput)

     C                   if        pdfOutLib_Error_Code = 0
     C                   print     'PDF file created successfully!'
     C                   else
     C                   print     'Unable to create PDF file!'
     C                   endif
     C                   SETON                                        LR

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