MVSFORUMS.com

vijay · Beginner Joined: 09 May 2003 Posts: 131 Topics: 64

Hi ,

I need a small help with JCL coding.

How to set RC of a step to zero.

say step01.rc = 16

How to reset the RC of this step to zero in the jcl

Thanks,
Vijay

prakal · Beginner Joined: 14 Mar 2003 Posts: 22 Topics: 1

You could execute an IEFBR14 step to reset the return code for the entire job

vijay · Beginner Joined: 09 May 2003 Posts: 131 Topics: 64

STEP1 : RC IS EITHER 0 OR 16

STEP2,3 AND 4 :WILL RUN BASED ON RC FROM STEP1 (I USE COND=(0,NE) AND WORKS FINE)

STEP 5:
//DUMSTEP EXEC PGM=IEFBR14,COND=(0,NE)

STEP 6:
//SYSABEND EXEC PGM=ABEND,COND=((0,EQ,DUMSTEP)
ABEND PROGRAM IS NOT EXISTING SO YOU'LL GET 806 ABEND IF THIS STEP IS EXECUTED.

When step1 RC=16,I wan't the overall job to come with a zero code.

Mike · Posted: Thu Aug 28, 2003 4:46 pm Post subject:

It is not that easy to retrospectively change a steps condition code. It would require a program to manipulate internal control blocks. What is the reason that you want the overall RC of 0, my guess is that it is perhaps for scheduling purposes in which case most of the major schedulers that I am aware of will allow a cond code of 16 to be acceptable, some schedulers also allow a distinction between the highest and last issued condition code.

Another way would be write what I'll term as a wrapper program to invoke the real program (could be done in virtually any language). This program simply calls the program you want and then sets the condition code to what you want depending upon the condition code returned from the invoked program. To be able to bypass subsequent steps the step would have to issue a non zero condition code. You could possibly even expand this method to reduce the number of steps, not that I believe this to be desirable.

Yet another way could be for the job that you want to issue the return code to submit a satellite job that invokes the program issuing the retrun code 16, perhaps with a step that either doesn't or does write a record to a dataset depending upon the condition code. The main job could then check this dataset (you'd have a problem knowing when the second job ran, but a Rexx/Clist program could detect this) to see if it has any data.
_________________
Regards,
Mike.

SureshKumar · Intermediate Joined: 23 Jan 2003 Posts: 211 Topics: 21

Mike,
Can we use (dummy) IDCAMS in this situation to set the return code to 0 ?

//STEPXX EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SET MAXCC=0
//*

kolusu · Posted: Fri Aug 29, 2003 11:31 am Post subject:

Suresh,
The method you have shown above will only set the maxcc of that particular step to 0 but not to the entire job.As mike stated earlier , you need to manipulate the internal control blocks.If any of the steps issues a 16 which being the highest rc issued , then the job ends with that return code even if the last step issues a zero return code.

Hope this helps...

cheers

kolusu