Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

End Job When RC 00 in PSTEP005

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
coxdavi

New User


Joined: 12 Mar 2009
Posts: 30
Location: usa

PostPosted: Fri Oct 09, 2009 3:28 am    Post subject: End Job When RC 00 in PSTEP005
Reply with quote

I have the following piece of JCL:

Code:

//PSTEP005 EXEC PGM=ICETOOL                                           
//TOOLMSG DD SYSOUT=*                                                 
//DFSMSG DD SYSOUT=*                                                   
//IN     DD DISP=SHR,DSN=COXDAVI.JOBDATA.EXTRACT                       
//TOOLIN DD DISP=SHR,DSN=COXDAVI.ICETIN                               
//**** *TOOLIN DD *                                                   
//**** * SET RC=0 IF THE 'IN' DATA SET IS EMPTY, OR                   
//**** * SET RC=4 IF THE 'IN' DATA SET IS NOT EMPTY                   
//**** COUNT FROM(IN) EMPTY RC4                                       
//*********************************************************************
//*  SENDING AN EMAIL USING IDCAMS UTILITY                             
//**********************************************************           
//* NOTE: INPUT FILES NEED TO BE THE SAME LRECL  *                     
//************************************************                     
// IF PSTEP005.RC = 4 THEN                                             
//SMTPMAIL EXEC PGM=IEBGENER                                           
//SYSIN    DD DUMMY                                                 
//SYSUT1   DD DISP=SHR,DSN=COXDAVI.JSCAN.HEADER.MSG                 
//         DD DISP=SHR,DSN=COXDAVI.JOBDATA.EXTRACT                 
//SYSUT2   DD SYSOUT=(B,SMTPPROC)                                   
//SYSPRINT DD SYSOUT=*                                             
//SYSOUT   DD SYSOUT=*                                             
// ENDIF                                                           
//******************************************************************
// IF PSTEP005.RC = 4 THEN                                         
//CLEAR    EXEC PGM=IEBGENER                                       
//SYSIN    DD DUMMY                                                 
//SYSUT1   DD DUMMY,DCB=COXDAVI.JOBDATA.EXTRACT                     
//SYSUT2   DD DSN=COXDAVI.JOBDATA.EXTRACT,DISP=OLD                 
//SYSPRINT DD SYSOUT=*                                             
//SYSOUT   DD SYSOUT=*                                             
// ENDIF                                                           
//*


When the return code is 4, I want to go ahead and do the last two steps. This works fine.

When the return code is 0, I receive the following:

Code:

 -                                             
 -STEPNAME PROCSTEP    RC   EXCP   CONN    TCB
 -STEP01   STEP01      00    675    473    .00
 -STEP01   PSTEP005    00     26      7    .00
 -STEP01   SMTPMAIL FLUSH      0      0    .00
 -STEP01   CLEAR    FLUSH      0      0    .00


This is a good result.

My question is: If PSTEP005 ends with 00 as above, is there a way to NOT have the system indicate the FLUSH results as above ?

Thanks for any assistance with this question.

Dave
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Oct 09, 2009 3:37 am    Post subject:
Reply with quote

Hello,

No way that i'm aware of. . .

The steps were flushed and are being reported as such. I believe that to do otherwise (even if some wanted this) would be incorrect.
Back to top
View user's profile Send private message
coxdavi

New User


Joined: 12 Mar 2009
Posts: 30
Location: usa

PostPosted: Fri Oct 09, 2009 3:43 am    Post subject: Reply to: End Job When RC 00 in PSTEP005
Reply with quote

Hi Dick,

The reasoning behind this request is that rc of 4 means that there is data in the COXDAVI.JOBDATA.EXTRACT file that will be emailed to our Production Support folks so that they can discuss the data ( errors in Jobscan ) with the Applications staff doing the scan. RC of 0 means that the scan is clean and no further action is necessary. The PSTEP005 is just indicating whether the file is empty or not, and setting the appropriate RC out of PSTEP005.

Dave
Back to top
View user's profile Send private message
coxdavi

New User


Joined: 12 Mar 2009
Posts: 30
Location: usa

PostPosted: Fri Oct 09, 2009 4:08 am    Post subject: Reply to: End Job When RC 00 in PSTEP005
Reply with quote

Thanks for looking at the question anyway. Dick is correct to say why the FLUSH indicator is set ( because it really is flushing through the last two steps - not executing them - on RC of 00 ).

Still pertinent to the question: Does anyone know how to manipulate the return code indicator whether it is a numeric value or something like " FLUSHED " ?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Oct 09, 2009 7:19 pm    Post subject:
Reply with quote

Hello,

The "return code indicator" is set by the system and once set cannot be reset.

This is the same type of question as when somone wants to change the value of the return code of some previous step (which also cannot be done).
Back to top
View user's profile Send private message
coxdavi

New User


Joined: 12 Mar 2009
Posts: 30
Location: usa

PostPosted: Sat Oct 10, 2009 2:59 am    Post subject: Reply to: End Job When RC 00 in PSTEP005
Reply with quote

I am just about to give up on this idea.

However, being stubborn, I would like to ask if ICETOOL can conditionally stop the execution of a job ? I have already tried MODE STOP, but that doesn't act externally on the rest of the steps in the job.

Should I close this out and start a new question on the DFSORT/ICETOOL forum ? I have unsuccessfully searched that already and come up with nothing that will do what I want done.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Oct 10, 2009 3:32 am    Post subject:
Reply with quote

Hello,


Quote:
I would like to ask if ICETOOL can conditionally stop the execution of a job ?
As far as i know, ICETOOL, SORT, DFDSS, IDCAMS, and others ad infinitum can cause an abend and still not produce what you have described as the goal.

If a job has n steps and step n-4 abends, all of the steps will still be visable in that output. . . 'Cause that is the way it is designed. . . icon_smile.gif

Why is this an issue? What business requirement might this address?

Quote:
Should I close this out and start a new question on the DFSORT/ICETOOL forum ? I have unsuccessfully searched that already and come up with nothing that will do what I want done.
The replies will still not be what you want. . . You need to keep focus that the system is working exactly as intended.

One way to do what you want is to run a predecessor job that does a "look ahead" and determines if the last 2 steps should run or not and then submit a "full" job or a job minus the last 2 steps thru the Internal Reader (there are multiple topics about using the Internal Reader in the forum). Adds a bunch of unneeded complexity for no actual value and may waste some amount of system resources, but it would prevent the current FLUSH presentation. . .
Back to top
View user's profile Send private message
coxdavi

New User


Joined: 12 Mar 2009
Posts: 30
Location: usa

PostPosted: Sat Oct 10, 2009 3:59 am    Post subject: Reply to: End Job When RC 00 in PSTEP005
Reply with quote

It is an issue to me due to the fact that the first step is actually JCL for the Jobscan proc that controls batch and foreground scans off the validation panels as well as Edit macro scans. Within that proc, I am running a COBOL program which checks site standards against Application Development staff's JCL. If any validation errors occur, they get written to a file in the code, then I take that file ( after using ICETOOL to check for empty or not empty ) if not empty into a SMTPPROC email step. The issue comes when these developers call and say " My job doesn't look right. I ran and got no errors on the scan, but the job itself didn't end right. Two steps flushed ". See ? I am trying hard to keep this as uncomplicated as I can for the developers. Perhaps I won't be able to do so. If that's the case, so be it. I write a nice email explaining what's happening with their batch scans and move on.

The batch comes out of a user's online session dealing with validation panels off ISPF, but I appreciate your comments on a look-ahead job. Sounds like it would work in a regular batch stream quite well.

Yep, I appreciate keeping my eye on what's important, and that the system works as designed with the flush. As I explained above, I am trying to find a way to not see the flush steps.

I will try briefly over at ICETOOL and see what shakes out.

Thanks Dick for your attention to my question. I appreciate it.

Dave
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1239
Location: Richfield, MN, USA

PostPosted: Sat Oct 10, 2009 5:57 am    Post subject:
Reply with quote

Quote:
I will try briefly over at ICETOOL and see what shakes out.
Please refrain from posting the same question in multiple forums. See posting guidelines.
Back to top
View user's profile Send private message
coxdavi

New User


Joined: 12 Mar 2009
Posts: 30
Location: usa

PostPosted: Sat Oct 10, 2009 9:41 am    Post subject: Reply to: End Job When RC 00 in PSTEP005
Reply with quote

Terry, this question in this forum was concerning JCL and how to achieve what I want through controlling JCL. The reason I want to go over to ICETOOL is because I feel maybe ICETOOL has the capability to do what I want to get done, and this forum came up dry. In my mind, there is enough of a separation between JCL and ICETOOL to justify asking two different questions in two separate forums which are both applicable to my questions. I hope that moderators will see that I am not playing games here, and am really trying to get something done. If not, then I will do something else. It is a fine set of forums with a lot of knowledge that has already helped me several times, and I would not want to be in a position of being banned. Thanks again for your concern.

Dave
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:



Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us