🚀 go-pugleaf

Thanx for your answers, but this does not answer my question
The solutions you propose (COBOL, asm or IDCAMS) allows me to write a
program for which the RC of the execution step will be 4.

This is not what I want to achieve: What I want to do is, in the middle of a
JCL, reset the internal value of RC stored somewhere by JES
I want to say to JES is: From that execution point in the JCL, forget the
maximum return code of all the previously executed steps (i.e. the global RC
variable)  and reset it to 4 (or force the value of the global RC indicator
to 4)
By "global RC indicator", I mean the RC variable handled by JES not related
to any particular step, present in any JCL and that you can test in IF
statements without the step qualifier.The solution you give allows me to
force the value of the step.RC value for a particular step, not the "global"
one.


Thomas David Rivers wrote in message <38E4B15C.B33B23C6@dignus.com>...
>Terry Heinze wrote:
>
>> You can't set the RC in JCL with a JCL statement, but you COULD exec a
COBOL
>> pgm that set the value of RETURN-CODE for the step the pgm was executed
in.
>> The value of the RC in your first step would remain that value for the
>> during of the job.  In other words, replace // SET RC=4 by // EXEC
>> PGM=SETRC4 then test the result of the step executing SETRC4.  Each step
>> returns it's own RC, so in ob containing 4 steps, there are 4 different
RCs
>> you can test.
>
>Well - a COBOL program may be a little overboard; just write a quick
>ASM program that puts 4 in R15 and does a BALR 14,15.   That will
>set the 4 as the RC.
>
>Something like:
>
>       SET4RC  CSECT
>               L    15,=F'4'
>               BALR 14,15
>               LTORG
>               END  SET4RC
>
>Assemble this, link it and there you go.
>
>A fancier version might, perhaps, look at the incoming PARMS
>value (off of R1) and simply set the return code to whatever
>that specified, etc...
>
>        - Dave Rivers -
>
>
>--
>rivers@dignus.com                         Work: (919) 676-0847
>Get your mainframe (370) `C' compiler at http://www.dignus.com
>
>
>