That is because you are executing the CLIST under batch ISPF (ISPSTART),
not just under batch TSO. It is not the CLIST (or REXX EXEC) RC that
determines the job step completion code in this environment, but the RC
from ISPF.
Check the ISPF documentation. To alter the ISPF return code you need to
use VPUT to save the desired ISPF return code into variable ZISPFRC in
the SHARED pool before terminating the CLIST, as in
SET ZISPFRC = 4
ISPEXEC VPUT (ZISPFRC) SHARED
sri wrote:
When run this job I am getting rc 20 in the clist output. Though job
completed with cond code of 00.
This clist reading flat file and erasing the ispf table member and
recrestes in the isptabl library. It used to work fine in os/390.
Atlast we upgraded the os to Z/os 1.8.
//JOBCARD
//EFT01050 EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(0,LT)
//ISPPROF DD DISP=SHR,DSN=TEST.XTXT.ISPFPROF
//SYSPROC DD DISP=SHR,DSN=Y166.CLIST
//ISPPLIB DD DISP=SHR,DSN=SYS2.XTXT.ISPFPLIB.SMT
//ISPMLIB DD DISP=SHR,DSN=SYS2.XTXT.ISPFMLIB.SMT
//ISPSLIB DD DISP=SHR,DSN=SYS2.XTXT.ISPFSLIB.SMT
//ISPTLIB DD DISP=SHR,DSN=SYS2.XTXT.ISPFTLIB.SMT
// DD DISP=SHR,DSN=XTX.DIALOG.ISPTLIB
//ISPTABL DD DISP=SHR,DSN=XTX.DIALOG.ISPTLIB
//ISPLOG DD DUMMY,BLKSIZE=0
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=I
//SYSTSIN DD *
ISPSTART CMD(%ERSTABL)
/*
SAMPLE of THE CLIST IS
PROC 0 DEBUG
CONTROL LIST CONLIST SYMLIST MSG END(DEND)
ISPEXEC TBERASE TESTTABL LIBRARY(ISPTABL)
SET &RC = &LASTCC
IF (&RC NE 0) THEN DO
WRITE ******************************************************
WRITE * TBERASE RETURN CODE: &RC
WRITE ******************************************************
DEND
END
IN SDSF
READY
%ERSTABL
******************************************************
* TBERASE RETURN CODE: 20
******************************************************
READY
END
IF YOU EXECUTE THIS CLIST TSO EX 'PDS(ERSTABL)'
it works fine. So can anyone tell me why is this is happening in bacth
mode.
Thanks
Ravi
--
Joel C. Ewing, Fort Smith, AR [EMAIL PROTECTED]
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
