c                   callp     PDF_set_info(p:infokey:infoval)

      *     Author            

     c                   eval      infokey= Author +x 00 

     c                   eval      infoval= Thomas Merz +x 00 

     c                   callp     PDF_set_info(p:infokey:infoval)

      *     Title            

     c                   eval      infokey= Title +x 00 

     c                   eval      infoval= Hello, world (RPG)! +x 00 

     c                   callp     PDF_set_info(p:infokey:infoval)

     c                   callp     PDF_begin_page_ext(p:a4_width:a4_height:

     c                                                                  empty)

      *

     c                   eval      fontname= Helvetica Bold +x 00 

     c                   eval      fontenc= ebcdic +x 00 

     c                   eval      font=PDF_load_font(p:fontname:0:fontenc:n)

      *

     c                   callp     PDF_setfont(p:font:24)

     c                   callp     PDF_set_text_pos(p:50:700)

      *

     c                   eval      text= Hello world! +x 00 

     c                   callp     PDF_show(p:text)

     c                   eval      text= (says ILE RPG) +x 00 

     c                   callp     PDF_continue_text(p:text)

     c                   callp     PDF_end_page_ext(p:empty)

     c                   callp     PDF_end_document(p:empty)

     c                   callp     PDF_delete(p)

      *

     c                   exsr      exit

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

     c     geterrmsg     begsr

     c                   eval      errmsg_p=PDF_get_errmsg(p)

     c                   if        errmsg_p<>*NULL

     c                   eval      error=%subst(errmsg:1:%scan(x 00 :errmsg) 1)

     c                   endif

     c                   endsr

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

     c     exit          begsr

     c                   if        error<>*blanks

     c                   eval      error= Error:  +error

     c     error         dsply

     c                   endif

     c                   seton                                        lr

     c                   return

     c                   endsr

CRTBNDDIR BNDDIR(PDFLIB/PDFLIB) TEXT( PDFlib Binding Directory )

ADDBNDDIRE BNDDIR(PDFLIB/PDFLIB) OBJ((PDFLIB/PDFLIB *SRVPGM))

CRTBNDRPG PGM(PDFLIB/HELLO) SRCFILE(PDFLIB/QRPGLESRC) SRCMBR(*PGM) DFTACTGRP(*NO) +

BNDDIR(PDFLIB/PDFLIB)

2.12.3 RPG                 

2.12  RPG                  

43