|
|
 | | From: | Jay Pillai | | Subject: | Find Return code of previous step with REXX | | Date: | 18 Jan 2005 03:46:03 -0800 |
|
|
 | Is it possible to find the return code of a step in JCL with REXX
Example: JCL with 2 steps
STEP1 Does some processing... and gives a return code
STEP2 REXX step, to trap this Return code and pass it
as a variable to another program.
Any hints, how to do this.
Thank you
Jay
This e-mail, including attachments, is intended for the person(s) or
company named and may contain confidential and/or legally privileged
information. Unauthorized disclosure, copying or use of this information
may be unlawful and is prohibited. If you are not the intended recipient,
please delete this message and notify the sender
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
|
|
| | From: | OneHandClapping | | Subject: | Re: Find Return code of previous step with REXX | | Date: | Tue, 18 Jan 2005 07:37:01 -0600 |
|
|
| the step condition entries are anchored in the system step condition
table (the sct), and each step will have its return code in SCTSEXEC.
rexx can access this information using the storage function.
snip:
, SCT = STORAGE(D2X(DJCT+48),3)
, do until sct="000000"x
, DSCT = C2D(SCT)+16
, sct=parsedumper(storage(d2x(dsct),176)
, end
, exit 0
,parsedumper:
, procedure expose dsct
, parse arg sctdata
, parse value sctdata with 1 SCTDISKA ,
, +3 SCTTBLID ,
, +1 SCTSSTAT ,
, +1 SCTRSVD1 ,
, +3 SCTSEXEC ,
STEPNAME PROCSTEP RC
RC4 04
RC8 08
RC12 12
RC16 16
RC32 32
RC64 64
sct at 8DF1B8
SCTSEXEC 0004
sct at 8DF278
SCTSEXEC 0008
sct at 8DFC38
SCTSEXEC 000C
sct at 8DFE78
SCTSEXEC 0010
sct at 8D20E8
SCTSEXEC 0020
sct at 8D2328
SCTSEXEC 0040
Jay Pillai wrote:
>
> Is it possible to find the return code of a step in JCL with REXX
>
> Example: JCL with 2 steps
> STEP1 Does some processing... and gives a return code
> STEP2 REXX step, to trap this Return code and pass it
> as a variable to another program.
>
> Any hints, how to do this.
>
> Thank you
>
> Jay
>
> This e-mail, including attachments, is intended for the person(s) or
> company named and may contain confidential and/or legally privileged
> information. Unauthorized disclosure, copying or use of this information
> may be unlawful and is prohibited. If you are not the intended recipient,
> please delete this message and notify the sender
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions,
> send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
|
|
|
