Sample CL Program for Converting Formsprint

From Support

Sample CL Program for Converting Formsprint PCL File from AS/400 Physical File to an IFS File and then Converting to PDF Formatted IFS File with PCL2PDF command

PGM

/***********************************************************/        
/* COPY PCL FILE FROM AS/400 PHYSICAL FILE TO IFS FILE     */        
/***********************************************************/        
           CPYTOSTMF  +                                              
                      FROMMBR('/QSYS.LIB/PCLFILES.LIB/RA240298.FI+ 
                      LE/RA240298.MBR') TOSTMF('/RA240298.PCL') +  
                      STMFOPT(*REPLACE) CVTDTA(*NONE) +            
                      DBFCCSID(*FILE) STMFCODPAG(*STMF) +          
                      ENDLINFMT(*FIXED)                            
                                                                      
/***********************************************************/        
/* CONVERT PCL IFS FILE TO PDF via PCL2PDF    */        
/***********************************************************/        
             RJSPCLPDF/PCL2PDF PCLFILE('/RA240298.PCL') +            
                          PDFFILE('/RA240298.PDF')                   
                                                                     
 /***********************************************************/       
 /* ERASE TEMPORARY PCL IFS FILE                            */       
 /***********************************************************/       
              ERASE      OBJLNK('/RA240298.PCL')                     
                                                                     
ENDPGM