🚀 go-pugleaf

Warren Porter wrote:

> Thomas David Rivers wrote:
>
> > 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
>
> I think you are at the wrong end of the program for that instruction.  Try
>                   LA 15,4
>                   BR 14
> after the registers have been restored.  The BALR would load the address of the
> next instruction in Reg 14 and branch to the address in Reg 15, but the system
> wouldn't let you branch to low core.
> --
> Warren Porter   - Remove digits

Opps - you're right!  That's what I get for programming "in mail" :-)

    - Dave Rivers -



--
rivers@dignus.com                         Work: (919) 676-0847
Get your mainframe (370) `C' compiler at http://www.dignus.com