 |
|
Current group: bit.listserv.tsorexx
Re: Find Return code of previous step with REXX
| Hamilton, Robert L | | Jay Pillai |
|
|
| | From: | Hamilton, Robert L | | Subject: | Re: Find Return code of previous step with REXX | | Date: | 19 Jan 2005 04:50:23 -0800 |
|
|
 | You need to get on www.mvshelp.com GET A USER
ID; IT'S FREE
/* rexx THIS IS ONE OF MANY EXAMPLES OF GETTING STEP RETURN CODES. .
..*/
/* MANY OTHER EXAMPLES ARE GIVEN IN IBM 'DATA AREA ' MANUALS */
NUMERIC DIGITS(32) /* ENSURE MAX PRECISION */
TCB=STORAGE(D2X(540),4) /* PSATOLD IN PSA */
JSCB =STORAGE(D2X(C2D(TCB)+180),4) /* TCBJSCB IN TCB */
JCT = STORAGE(D2X(C2D(JSCB)+261),3) /* JSCBJCTA IN JSCB */
THIS_STEP_NO = X2D(C2X(STORAGE(D2X(C2D(JSCB)+228),1)))
/* THIS STEP NO. */
FSCT = STORAGE(D2X(C2D(JCT)+48),3) /* JCTSDKAD IN JCT */
/* IS FIRST SCT */
TEMP_SCT = FSCT
DO I = 1 TO (THIS_STEP_NO - 1)
STEP = STORAGE(D2X(C2D(TEMP_SCT)+68),8)
RCSTEP = X2D(C2X(STORAGE(D2X(C2D(TEMP_SCT)+24),2)))
/* SCTSEXEC IN SCT */
BYPASS = STORAGE(D2X(C2D(TEMP_SCT)+188),1)
IF X2D(C2X(BYPASS)) = 80 THEN /* CHECK IF STEP WAS*/
/* NOT EXECUTED */
RCSTEP = 'FLUSHED '
SAY 'STEP ==>' STEP ' RC ==>' RCSTEP
TEMP_SCT = STORAGE(D2X(C2D(TEMP_SCT)+36),3)
END
EXIT
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-REXX@VM.MARIST.EDU] On Behalf
Of Jay Pillai
Sent: Wednesday, January 19, 2005 6:23 AM
To: TSO-REXX@VM.MARIST.EDU
Subject: Re: Find Return code of previous step with REXX
I did a search in Google, but I did not found anything which can give me
a
Job step return code.
Is there any other way to do this?.
Jay
"Hamilton, Robert
L"
.EDU>
Sent by: TSO REXX To:
TSO-REXX@VM.MARIST.EDU
Discussion List cc:
(bcc: Jay Pillai/SwissRe)
Jay Pillai/SwissRe
ST.EDU> Subject:
Re: Find Return code of previous step with REXX
18.01.2005 13:09
Please respond to
TSO REXX
Discussion List
Do a google for STORAGE function and REXX
Check also on MVSHELP.COM
bobh
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-REXX@VM.MARIST.EDU] On Behalf
Of Jay Pillai
Sent: Tuesday, January 18, 2005 5:44 AM
To: TSO-REXX@VM.MARIST.EDU
Subject: Find Return code of previous step with REXX
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
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
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
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
|
|
| | From: | Jay Pillai | | Subject: | Re: Find Return code of previous step with REXX | | Date: | 19 Jan 2005 07:06:56 -0800 |
|
|
| Thank you very much for your help, just what I was looking for.
Jay
"Hamilton, Robert
L"
.EDU>
Sent by: TSO REXX To: TSO-REXX@VM.MARIST.EDU
Discussion List cc: (bcc: Jay Pillai/SwissRe)
ST.EDU> Subject: Re: Find Return code of previous step with REXX
19.01.2005 13:49
Please respond to
TSO REXX
Discussion List
You need to get on www.mvshelp.com GET A USER
ID; IT'S FREE
/* rexx THIS IS ONE OF MANY EXAMPLES OF GETTING STEP RETURN CODES. .
..*/
/* MANY OTHER EXAMPLES ARE GIVEN IN IBM 'DATA AREA ' MANUALS */
NUMERIC DIGITS(32) /* ENSURE MAX PRECISION */
TCB=STORAGE(D2X(540),4) /* PSATOLD IN PSA */
JSCB =STORAGE(D2X(C2D(TCB)+180),4) /* TCBJSCB IN TCB */
JCT = STORAGE(D2X(C2D(JSCB)+261),3) /* JSCBJCTA IN JSCB */
THIS_STEP_NO = X2D(C2X(STORAGE(D2X(C2D(JSCB)+228),1)))
/* THIS STEP NO. */
FSCT = STORAGE(D2X(C2D(JCT)+48),3) /* JCTSDKAD IN JCT */
/* IS FIRST SCT */
TEMP_SCT = FSCT
DO I = 1 TO (THIS_STEP_NO - 1)
STEP = STORAGE(D2X(C2D(TEMP_SCT)+68),8)
RCSTEP = X2D(C2X(STORAGE(D2X(C2D(TEMP_SCT)+24),2)))
/* SCTSEXEC IN SCT */
BYPASS = STORAGE(D2X(C2D(TEMP_SCT)+188),1)
IF X2D(C2X(BYPASS)) = 80 THEN /* CHECK IF STEP WAS*/
/* NOT EXECUTED */
RCSTEP = 'FLUSHED '
SAY 'STEP ==>' STEP ' RC ==>' RCSTEP
TEMP_SCT = STORAGE(D2X(C2D(TEMP_SCT)+36),3)
END
EXIT
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-REXX@VM.MARIST.EDU] On Behalf
Of Jay Pillai
Sent: Wednesday, January 19, 2005 6:23 AM
To: TSO-REXX@VM.MARIST.EDU
Subject: Re: Find Return code of previous step with REXX
I did a search in Google, but I did not found anything which can give me
a
Job step return code.
Is there any other way to do this?.
Jay
"Hamilton, Robert
L"
.EDU>
Sent by: TSO REXX To:
TSO-REXX@VM.MARIST.EDU
Discussion List cc:
(bcc: Jay Pillai/SwissRe)
Jay Pillai/SwissRe
ST.EDU> Subject:
Re: Find Return code of previous step with REXX
18.01.2005 13:09
Please respond to
TSO REXX
Discussion List
Do a google for STORAGE function and REXX
Check also on MVSHELP.COM
bobh
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-REXX@VM.MARIST.EDU] On Behalf
Of Jay Pillai
Sent: Tuesday, January 18, 2005 5:44 AM
To: TSO-REXX@VM.MARIST.EDU
Subject: Find Return code of previous step with REXX
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
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
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
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
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
|
|
|
| | |
|
 |