Re: Keeping QPRINT open

  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

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

    From:  "Michael Naughton" <michael_naughton@xxxxxxxxxxxx>
    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.
    >