RE: PROBLEMS WITH QPRINT

["Jon Allen" <jallen@xxxxxxxxx>]

RCLRSC

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob O.
Sent: Wednesday, July 19, 2006 2:12 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: PROBLEMS WITH QPRINT

   I have several RPG print programs that are using SHARE(*YES) on the
   OVRPRTF command on QPRINT so as to create one large print file.  Even
   though I've added CLOSE QPRINT to the last program that runs and set
on
   LR, QPRINT remains open even after the program ends.
    
   The print file is supposed to merge with a form and then be sent to
   another queue to be converted to a *.tif file for our imaging system.
The
   merge isn't happening due to QPRINT still being open.  How do I get
QPRINT
   to close even though I use the CLOSE opcode in the RPG program and
set on
   LR as well?
    
   What I'm doing is:
    
   1.  Call a CL program that does the override on QPRINT with
SHARE(*YES)
    
   2.  The CL program calls an RPG program that calls 13 print RPG
programs
   to create the output.
        The last called program closes QPRINT and sets on LR.
    
   3.  Merge the output with the form.
   4.  Send the form to another output queue for imaging system
conversion.