*****************************************************************************************
     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                        






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