Sample CL Program for Converting Formsprint

 

Below is a 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