RE: Query on Report Generation.

Hi Sriram

You can duplicate the report using the SNDNETSPLF command to send the spool
file to the current user and then change the USRDTA parameter accordingly.
The following CLP worked for me:

PGM                                                            
                                                               
DCL        VAR(&USER)   TYPE(*CHAR) LEN(10)                    
DCL        VAR(&SYSTEM) TYPE(*CHAR) LEN( 8)                    
                                                               
RTVJOBA    USER(&USER)                                         
RTVNETA    SYSNAME(&SYSTEM)                                    
                                                               
DSPFD      FILE(SYSP901A) OUTPUT(*PRINT)                       
CHGSPLFA   FILE(QPDSPFD) SPLNBR(*LAST) USRDTA('FIRST')         
                                                               
SNDNETSPLF FILE(QPDSPFD) TOUSRID((&USER &SYSTEM)) SPLNBR(*LAST)
CHGSPLFA   FILE(QPDSPFD) SPLNBR(*LAST) USRDTA('SECOND')        
                                                               
ENDPGM                                                         

This assumes that the user is enrolled in the system directory and that the
second report is for the same user.

Hope it helps

Jonathan

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Srinivasan, Sriram
Sent: 23 February 2006 08:07
To: RPG programming on the AS400 / iSeries
Subject: Query on Report Generation.

Hi all,

I have a query in Printing A Spool.  I have a CL program which defines the
Outq and UsrDta before calling a RPG program.  

Where in, to get a same output on to a different UsrDta the same set of code
is been repeated(around 10 lines of CL code, like opnqry,  ovrprtf, call and
clof).  I knew by using the posdbf we can skip one step (of selecting
records using opnqryf) on the above said list. But, I wish to know is there
any way by which I can prepare a report (of same output) on a different
usrdta.

Please help me in this regard. 

Thanks & Regards,
Sriram S
IMPORTANT NOTICE: 

The information in this email (and any attachments) is confidential. 
If you are not the intended recipient, you must not use or disseminate the
information.
If you have received this email in error, please immediately notify me by
"Reply" command 
and permanently delete the original and any copies or printouts thereof. 
Although this email and any attachments are believed to be free of any virus
or 
other defect that might affect any computer system into which it is received
and opened, 
it is the responsibility of the recipient to ensure that it is virus free
and no responsibility 
is accepted by American International Group, Inc. or its subsidiaries or
affiliates either 
jointly or severally, for any loss or damage arising in any way from its
use.