*****************************************************************************************

     d/copy QRPGLESRC,PDFLIB

*****************************************************************************************

     d p               S               *

     d font            s             10i 0

      *

     d error           s             50

      *

     d errhdl          s               *   procptr

      *

      *                                    

      *

     d errhandler      PR

     d  p                              *   value

     d  type                         10i 0 value

     d  shortmsg                   2048

*****************************************************************************************

     c                   clear                   error

      *

*                              

procedure                    

*

     c                   eval      errhdl=%paddr( ERRHANDLER )

      *

     c                   eval      p=pdf_new2(errhdl:*null:*null:*null:*null)

...PDFlib      

...

c                   callp     PDF_delete(p)

      *

     c                   exsr      exit

*****************************************************************************************

     c     exit          begsr

     c                   if        error<>*blanks

     c     error         dsply

     c                   endif

     c                   seton                                        lr

     c                   return

     c                   endsr

*****************************************************************************************

      *  PDFlib                                                                        

      *              

RPG                    

     c     *pssr         begsr

     c                   exsr      exit

     c                   endsr

*****************************************************************************************

      *                          

      *                                          

PDF_new2                  

PDFlib      

      *                               

PDFlib                            

      *

*****************************************************************************************

     p errhandler      B

     d errhandler      PI

     d  p                              *   value

     d  type                         10i 0 value

     d  c_message                  2048

      *

     d  length         s             10i 0

      *

44

2   

:  PDFlib