From: Kathreen Kruse To: All

Does anyone know of a CL version of the S/36 // PRINTER CONTINUE-YES command? I want to run several programs, each of which creates reports, and I want them all to be in a single print file.

From: Pete Hall To: Kathreen Kruse

First, you need to override or change your printer file to use a shared access path. If you are using the default printer file QSYSPRT, you could do this with the command OVRPRTF FILE(QSYSPRT) SHARE(*YES). Then you must open the printer file and keep it open. This can be done with a very small RPG program which contains dummy printer output (99N99 EXCPT), and then executes a RETRN without setting on LR. You will need a dummy MOVE *ON *INLR also, or the RPG will not compile.

Simply call the RPG program at the start of your job, and then execute a RCLRSC at the end (or condition the initial RPG program with a *ENTRY parameter which causes it to actually set LR on when you wish to end printer continuation mode. The main thing is having a shared access path, which remains open during the time you wish to have all printer output directed to the shared spool file entry.