You might try routing ISPLOG to SYSOUT instead of DUMMY in case there are any messages routed there.
Bill On Sat, 9 Feb 2008 15:30:56 -0600, Joel C. Ewing <[EMAIL PROTECTED]> wrote: >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
