I agree with this.
Is not this statement thats causing the problem ?
CHGJOB outq(QUSRSYS/JUNK)
At the end of the job , there should be a command to
change the outq back to what it was.
CHGJOB OUTQ(*USRPRF) right?
--- "Ingvaldson, Scott" <SIngvaldson@xxxxxxxxxxxx>
wrote:
> Murali -
> 
> If you want to email your report it will need to go
> to hold status.  If you
> want to both print and email your report it will
> need to be SAVE(*YES).
> OVRPRTF HOLD(*NO) SAVE(*YES) will do this.  If you
> want the spooled file to
> be cleaned up after you email it you can add DLTSPLF
> FILE(QPQUPRFIL)
> SPLNBR(*LAST) to your program after you email the
> report.
> 
> OVRPRTF >> F1 = HELP
> 
> CHGSPLFA >> F1 = HELP
> 
> GO CMDSPLF = Spooled File Commands
> 
> Regards,
> 
> Scott Ingvaldson
> AS/400 System Administrator
> GuideOne Insurance Group
> 
> -----Original Message-----
> date: Wed, 24 Mar 2004 03:02:41 -0800 (PST)
> from: murali dhar <hydchap1@xxxxxxxxx>
> subject: RE: CHGJOB
> 
> If the report autromatically prints  we would not be
> able to email it since  the spool file would not be
> there after printing. These spool files are directed
> to  JUNK by using CHGJOB.
> Spool file are on hold.
> Could not get any conclusion aftre checking queries.
> 
> Thanks,
> Murali. 
> 
> --- Emmanuel Zannis <emmanuel.zannis@xxxxxxxxxxx>
> wrote:
> > Check your queries. 
> > 
> > -----Original Message-----
> > From: murali dhar [mailto:hydchap1@xxxxxxxxx]
> > Sent: 24 March 2004 10:03 AM
> > To: Midrange Systems Technical Discussion
> > Subject: CHGJOB
> > 
> > Hi, Greetings for a good day!
> > Below is my part of my CL program :
> > 
> > PGM                                               
>  
> >     
> >  DCL        VAR(&RECS) TYPE(*DEC) LEN(10)         
>  
> >  DCL        VAR(&PLIB) TYPE(*CHAR) LEN(10)        
>  
> >     
> >  YGETPLIB   PLIB(&PLIB)                           
>  
> >     
> >  CHGJOB     OUTQ(QUSRSYS/JUNK)                    
>  
> >     
> >  RUNQRY     QRY(YSGOMNITRD) QRYFILE((&PLIB/YTRNF1)
> +
> >               (YCUSTOMNI)) OUTTYPE(*OUTFILE) +    
>  
> >               OUTFILE(QTEMP/IFEMPTY)              
>  
> >     
> >  RTVMBRD    FILE(QTEMP/IFEMPTY) NBRCURRCD(&RECS)  
>  
> >     
> >  IF         COND(&RECS *EQ 0) THEN(GOTO
> > CMDLBL(ENDIT))
> >     
> >  RUNQRY     QRY(YSGOMNITRD) QRYFILE((&PLIB/YTRNF1)
> +
> >               (YCUSTOMNI)) OUTTYPE(*PRINTER) +    
>  
> >  
> >               OUTFILE(QTEMP/YSGOMNITRD)         
> > 
> > When I run this job , I found this puts spool file
> > on hold(it changes the outputq to junk):
> > 
> > How do I make this program modify sothat it should
> > not put spool file on hold ?
> > Can I replace with OVRPRTF? any  ideas? please
> post
> > Thanks in adv,
> > Murali.
>    
> This message and accompanying documents are covered
> by the Electronic
> Communications Privacy Act, 18 U.S.C. §§ 2510-2521,
> and contains information
> intended for the specified individual(s) only. This
> information is
> confidential. If you are not the intended recipient
> or an agent responsible
> for delivering it to the intended recipient, you are
> hereby notified that
> you have received this document in error and that
> any review, dissemination,
> copying, or the taking of any action based on the
> contents of this
> information is strictly prohibited. If you have
> received this communication
> in error, please notify us immediately by e-mail,
> and delete the original
> message.
> 
> _______________________________________________
> 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.
> 


__________________________________
Do you Yahoo!?
Yahoo! Finance Tax Center - File online. File on time.
http://taxes.yahoo.com/filing.html

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.