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






footer




 

 

 

 

 Home | About Us | Network | Services | Support | FAQ | Control Panel | Order Online | Sitemap | Contact

cgi web hosting

 

Our partners: PHP: Hypertext Preprocessor Best Web Hosting Java Web Hosting Inexpensive Web Hosting  Jsp Web Hosting

Cheapest Web Hosting Jsp Hosting Cheap Hosting

Visionwebhosting.net Business web hosting division of Web Design Plus. All rights reserved