If you have access to the submitted JCL or maybe the PROC, you could add a final abend step.
// IF (RC NE 0) THEN //ABEND EXEC PGM=ABEND // ENDIF > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] > On Behalf Of CUNY Yann > Sent: Thursday, February 21, 2013 11:08 AM > To: [email protected] > Subject: Re: want to purge all my jobs ended with a RC=0 automatically > > That was a possibility. > But a RC=12 for example, is considered as a normal completion. > That's why we wanted to only purge the "RC=0" jobs. > > > > -----Message d'origine----- > De : IBM Mainframe Discussion List [mailto:[email protected]] De > la part de Peter X. DeFabritus > Envoyé : jeudi 21 février 2013 16:57 > À : [email protected] > Objet : Re: want to purge all my jobs ended with a RC=0 automatically > > In your JES2 parameter member, you can specify the following: > > OUTCLASS(v) OUTDISP=(PURGE,WRITE) > > This will cause class v output to be purged if the job does not ABEND, > and left on the output queue if it does. > > > On Thu, 21 Feb 2013 15:15:29 +0000, CUNY Yann <yann.cuny.antares@AXA- > TECH.COM> wrote: > > >Hi all, > > > >For some volume reasons, we want to automatically purge jobs that > ended with a RC=0. > >But we don't want to do it, for CPU and Spool reasons, with a JES2 > command. We want to do it automatically. > >I'm sure that somebody already had the same need, no ? > > > >Any Idea ? > > > >Thank in advance ... > > > >Yann > > > > > >Ce message est confidentiel; Son contenu ne represente en aucun cas > un > >engagement de la part de AXA Technology Services (AXA Tech) sous > >reserve de tout accord conclu par ecrit entre vous et AXA Technology > >Services (AXA Tech).Toute publication, utilisation ou diffusion,meme > >partielle, doit etre autorisee prealablement. Si vous n'etes pas > >destinataire de ce message, merci d'en avertir immediatement l'expe- > >diteur. > > > >This message is confidential; its contents do not constitute a > >commitment by AXA Technology Services (AXA Tech) except where provi- > >ded for in a written agreement between you and AXA Technology > >Services (AXA Tech). Any unauthorised disclosure, use or dissemina- > >tion, either whole or partial, is prohibited. If you are not the > >intended recipient of the message, please notify the sender imme- > >diately. > > > >---------------------------------------------------------------------- > >For IBM-MAIN subscribe / signoff / archive access instructions, send > >email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to [email protected] with the message: INFO IBM-MAIN > > > Ce message est confidentiel; Son contenu ne represente en aucun cas > un engagement de la part de AXA Technology Services (AXA Tech) sous > reserve de tout accord conclu par ecrit entre vous et AXA Technology > Services (AXA Tech).Toute publication, utilisation ou diffusion,meme > partielle, doit etre autorisee prealablement. Si vous n'etes pas > destinataire de ce message, merci d'en avertir immediatement l'expe- > diteur. > > This message is confidential; its contents do not constitute a > commitment by AXA Technology Services (AXA Tech) except where provi- > ded for in a written agreement between you and AXA Technology > Services (AXA Tech). Any unauthorised disclosure, use or dissemina- > tion, either whole or partial, is prohibited. If you are not the > intended recipient of the message, please notify the sender imme- > diately. > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
