Re: Keeping QPRINT open -- RPG400-L

--> Moved to RPG400-L at the request of the moderator <--

What language are the programs in? If RPG, I think it's as simple as
leaving LR off until the last program. You might also have to override
QPRINT to share(*yes) before you start(?).


It may not even be necessary to leave *INLR off.  I had a similar problem 
recently:  I wanted to have PGMA read through an IFS directory, passing 
each file (exluding . and ..) to PGMB for processing.  PGMB produces an 
error report of records that need user attention, and I wanted all of the 
records from all calls to PGMB to show up on the same report.  The trick 
was to override the print file to have SHARE(*YES), then open the file in 
PGMA (even though it was not used).  This way, PGMB can open and close the 
print file at will, but the print file will not be handed over to the 
spooler because it is still in use by PGMA.

If you have (or can add) a 'controller' program to the jobstream, you 
should be able to use a similar method.

Hope this helps,
Adam


midrange-l-bounces@xxxxxxxxxxxx wrote on 11/07/2006 11:36:15 AM:

   I tried using an indicatior on the line of code that sets on LR and

ran it

   through the interactive source debugger.  The program never exited.

It

   just kept running and printing multiple copies of the report for that
   program.  I cannot take out the  "MOVE  *ON  *INLR" line because the
   program won't compile (of course).  So, how do I exit the program

forcing

   it to run only one time?

   Here's what I did...

   C*----------------------------------------------------------------
   C*-M A I N L I N E C A L C U L A T I O N S-
   C*----------------------------------------------------------------
   C                     EXSR DET90
   C                     EXSR DET91
   C                     SETON                                       50
   C  N50              MOVE *ON            *INLR



----------------------------------------------------------------------

     Reply-To:  Midrange Systems Technical Discussion
     <midrange-l@xxxxxxxxxxxx>
     To:  "Midrange Systems Technical Discussion"

<midrange-l@xxxxxxxxxxxx>

     Subject:  Re: Keeping QPRINT open
     Date:  Mon, 05 Jun 2006 17:01:18 -0400
     >What language are the programs in? If RPG, I think it's as simple

as

     >leaving LR off until the last program. You might also have to

override

     >QPRINT to share(*yes) before you start(?).
     >
     >Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx> on
     Monday,
     >June 05, 2006 at 3:19 PM -0500 wrote:
     > >   I have a project where I need to convert spool files to PDF
     files.  I
     > >have
     > >   13 programs that use QPRINT as the output file.  Rather than
     create 13
     > >   seperate PDF files, I'd like to keep an instance of QPRINT

open

     and
     > >create
     > >   one large PDF file from the single spool file.  Is there a

way (or

     > >   command) to keep the print file open through the duration of

the

     13
     > >   progams?
     >
     >
     >Mike Naughton
     >Senior Programmer/Analyst
     >Judd Wire, Inc.
     >124 Turnpike Road
     >Turners Falls, MA  01376
     >413-863-4357 x444
     >mnaughton@xxxxxxxxxxxx
     >
     >--
     >This is the Midrange Systems Technical Discussion (MIDRANGE-L)

mailing

     list
     >To post a message email: MIDRANGE-L@xxxxxxxxxxxx
     >To subscribe, unsubscribe, or change list options,
     >visit: http://lists.midrange.com/mailman/listinfo/midrange-l
     >or email: MIDRANGE-L-request@xxxxxxxxxxxx
     >Before posting, please take a moment to review the archives
     >at http://archive.midrange.com/midrange-l.
     >
-- 
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


#####################################################################################
Attention:
The above message and/or attachment(s) is private and confidential and is 
intended 
only for the people for which it is addressed. If you are not named in the 
address 
fields, ignore the contents and delete all the material. Thank you. Have a nice 
day.

For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################