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
Still have questions? We can help. Submit a case to Technical Support.