🚀 go-pugleaf

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