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
Last Modified On:
No, open a new Support Case