Return codes when running IKJEFT01 in batch

Marvin Knight

unread,

Jan 21, 2000, 3:00:00 AM1/21/00

to

Philip,
You need to set variable ZISPFRC and VPUT it to the SHARED pool.
See the Dialog Developers Guide and Reference manual

2.4.3 Return Codes from Terminating Dialogs

for a discussion on the variable.

Marv Knight

"Fecteau, Philip" <PFec...@ESD.WA.GOV>@listserv.nd.edu> on 01/21/2000
12:56:17 PM

Please respond to ISPF discussion list <ISP...@listserv.nd.edu>

Sent by: ISPF discussion list <ISP...@listserv.nd.edu>

To: ISP...@listserv.nd.edu
cc:

Subject: Return codes when running IKJEFT01 in batch

This has been cross posted to IBM-MAIN and ISPF-L discussion lists.

I am having a problem getting a non-zero return code from a batch execution
of a CLIST. Here is the job step:

//STEP0010 EXEC BATCHTSO
//SYSPROC DD DISP=SHR,DSN=ES28T540.ISPF.CLIST
// DD DISP=SHR,DSN=PROD155.TSO.PROD.CLIST
// DD DISP=SHR,DSN=ESD540.AGENCY.CLIST
// DD DISP=SHR,DSN=ES28T540.ISPF.CLIST
//ISPPROF DD DISP=SHR,DSN=ES28T540.TAXIS.ISPF.ISPPROF
//ISPSLIB DD DISP=SHR,DSN=ES28T540.TAXIS.ISPF.SKELS
// DD DISP=SHR,DSN=ENDV0540.PROD.ISPF.SKELS
//CMDIN DD UNIT=3390,SPACE=(TRK,(1,1))
//CMDOUT DD SYSOUT=(,)
//SYSOUT DD SYSOUT=(,)
//SYSPRINT DD SYSOUT=(,)
//SYSUDUMP DD SYSOUT=(,)
//SYSTSPRT DD SYSOUT=(,)
//SYSTSIN DD *
ISPSTART CMD(%A4628540)
/*

The output from this execution is as follows:

READY
ISPSTART CMD(%A4628540)
*******************************************
*******************************************
*** ***
*** Y5328540 ***
*** ***
*** ERROR BUILDING SKELETON JCL ***
*** ***
*** FILE TAILORING RETURN CODE 8 ***
*** ***
*** NOTIFY TAXIS PROGRAMMING STAFF ***
*** ***
*** NO JOBS WILL BE EXECUTED ***
*** ***
************************************************************
************************************************************
** **
** DATE: 01/20/00 A4628540 TIME: 16:14:45 **
** **
** Y4628540 WILL BE AUTOMATICALLY TRIGERED BY UCC7 WHEN **
** ALL DEPENDENCIES HAVE BEEN MET. Y5028540 AND Y5328540 **
** WILL BE TRIGGERED IN TURN. **
** **
** THE SCHEDULED DATE IS 01A22A00 **
** **
** THE REIMBURSABLE DATE IS 02A29A00 **
** **
** THE FT LIBRARY IS PROD0540.PCA7022.ES022.DADMIN **
** **
************************************************************
************************************************************
The initially invoked CLIST ended with a return code = 8
PFEC540.SPFLOG1.LIST has been kept.
READY
END

As you can see the return code from the CLIST is 8. However the return
code
sent to the system is 0, as you can see in the following IOF list of the
run:

VIOFSC7C ---------------------- IOF Job Summary
-------------------------------
COMMAND ===> SCROLL ===>
CURSOR
--JOBNAME---JOBID--STATUS---RAN/RECEIVED------DAY--------DEST---------------

---
A4628540 J21519 OUTPUT 16:14 1/20/2000 YESTERDAY X166

--RC--PGM--------STEP-----PRSTEP---PROC-----COMMENTS------------------------

---
0 IKJEFT01 BATCH STEP0010 BATCHTSO

--------DDNAME---STEP-----STAT-ACT-C-GRP-FORMS----D-SIZE-U--DEST------------

---
_ 1 LOG * HELD T 1 0001 H 20 L X166

_ 2 JCL * HELD T 1 0001 H 113 L X166

_ 3 MESSAGES * HELD T 1 0001 H 164 L X166

_ 4 SYSTSPRT BATCH HELD SEL T 1 0001 H 36 L X166

_ 5 SYSPRINT BATCH DONE T 0001

_ 6 CMDOUT BATCH DONE T 0001

_ 7 SYSOUT BATCH DONE T 0001

_ 8 SYSUDUMP BATCH DONE T 0001

The end of the called CLIST is as follows below. The &RC variable is set
in
the CLIST.

.
.
.
ENDOFIT: +
FREE F(ISPFILE) DA('ES28T540.TAXIS.PCA7022.JCLLIB')
EXIT CODE(&RC)
**************************** Bottom of Data *************************

How does one go about communicating the bad return code of 8 to the system?
Any examples will be appreciated.

Semper Paratus...

Philip W. Fecteau

I.T. Applications Specialist 4
I.T. Services Division
Washington State Employment Security
Phone.: 360-438-4719
Fax...: 360-438-4783
E-mail: pfec...@esd.wa.gov <mailto:pfec...@esd.wa.gov>

Tal Lifshitz

unread,

Jan 21, 2000, 3:00:00 AM1/21/00

to

What I usually do is check the RC in the script and if RC=0 allocate
and catalog a "flag" file. Then in the next job step delete this file
using IDCAMS. If the file does not exists, IDCAMS will end with RC=8.

Tal Lifshitz.
DB2 system programmer
(203) 719-5731

______________________________ Reply Separator _________________________________

Subject: Return codes when running IKJEFT01 in batch

Author: PFecteau (PFec...@ESD.WA.GOV) at unix,mime
Date: 01/21/2000 12:56 PM

This message contains confidential information and is intended only
for the individual named. If you are not the named addressee you
should not disseminate, distribute or copy this e-mail. Please
notify the sender immediately by e-mail if you have received this
e-mail by mistake and delete this e-mail from your system.

E-mail transmission cannot be guaranteed to be secure or error-free
as information could be intercepted, corrupted, lost, destroyed,
arrive late or incomplete, or contain viruses. The sender therefore
does not accept liability for any errors or omissions in the contents
of this message which arise as a result of e-mail transmission. If
verification is required please request a hard-copy version. This
message is provided for informational purposes and should not be
construed as a solicitation or offer to buy or sell any securities or
related financial instruments.

JB Moore

unread,

Jan 21, 2000, 3:00:00 AM1/21/00

to

Fecteau, Philip wrote:
>
> How does one go about communicating the bad return code of 8 to the system?
> Any examples will be appreciated.
>
> Semper Paratus...
>
> Philip W. Fecteau
>

Phil,

Use PGM=IKJEFT1B instead of IKJEFT01 *AND* ensure that your CLIST or
REXX uses the EXIT(&MAXCC) or EXIT(RC) on da bad way out...

Jim Moore

Wilco Boschman

unread,

Jan 27, 2000, 3:00:00 AM1/27/00

to

When you start ISPF the ISPSTART command should return the desired
returncode, not the CLIST/REXX. You can do this by setting the ISPFRC
variable to the desired returncode and it will let the ISPSTART command
return this RC.

HTH Wilco

Tal Lifshitz <Tal.Li...@WDR.COM> schreef in berichtnieuws
H0000255015ab6ac@MHS...

| What I usually do is check the RC in the script and if RC=0 allocate
| and catalog a "flag" file. Then in the next job step delete this file
| using IDCAMS. If the file does not exists, IDCAMS will end with RC=8.
|
| Tal Lifshitz.
| DB2 system programmer
| (203) 719-5731
|
|
| ______________________________ Reply Separator
_________________________________
| Subject: Return codes when running IKJEFT01 in batch
| Author: PFecteau (PFec...@ESD.WA.GOV) at unix,mime
| Date: 01/21/2000 12:56 PM
|
|
| This has been cross posted to IBM-MAIN and ISPF-L discussion lists.
|
| I am having a problem getting a non-zero return code from a batch
execution
| of a CLIST. Here is the job step:
|

| file://STEP0010 EXEC BATCHTSO
| file://SYSPROC DD DISP=SHR,DSN=ES28T540.ISPF.CLIST

| // DD DISP=SHR,DSN=PROD155.TSO.PROD.CLIST
| // DD DISP=SHR,DSN=ESD540.AGENCY.CLIST
| // DD DISP=SHR,DSN=ES28T540.ISPF.CLIST

Wilco Boschman

unread,

Jan 27, 2000, 3:00:00 AM1/27/00

to

Right.

Wilco

Marvin Knight <kni...@US.IBM.COM> schreef in berichtnieuws
8525686D.0...@d54mta04.raleigh.ibm.com...

| Subject: Return codes when running IKJEFT01 in batch
|
|

| .
| .
| .
| ENDOFIT: +
| FREE F(ISPFILE) DA('ES28T540.TAXIS.PCA7022.JCLLIB')
| EXIT CODE(&RC)
| **************************** Bottom of Data *************************
|
|