IBM Mainframe Forum

Hello

I run a rexx pgm - which uses ISPF - from batch and however in the rexx code there is error handling, no matter if CC12 is produced, my job still completes with CC0
I guess it might be because i call ISPF and it takes over the error handling process.. (?)
Is there a way to force my job to error if the rexx code generates CC12 ? instead of having CC0?

Thanks,
David

Where does the error occur and what are you trying to do at that point ?

Hi Expat

No matter where the error occurs i get CC0. For a test i run an EXIT 8 only.. with the same CC0 result.

Job that calls the rexx code:

//S002 EXEC PGM=IKJEFT01,DYNAMNBR=50
//SYSEXEC DD DSN=USERID.PROD.REXX,DISP=SHR
//ISPPLIB DD DSN=SYS1.SISPPENU,DISP=SHR
//ISPSLIB DD DSN=SYS1.SISPSENU,DISP=SHR
//ISPMLIB DD DSN=SYS1.SISPMENU,DISP=SHR
//ISPTLIB DD DSN=SYS1.SISPTENU,DISP=SHR
//ISPPROF DD DSN=&ISPPROF,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//ISPCTL1 DD DUMMY
//ISPCTL2 DD DUMMY
//SYSIN DD DUMMY
//ISPLOG DD SYSOUT=*,DCB=(RECFM=VA,LRECL=125,BLKSIZE=129)
//SYSTSIN DD *
ISPSTART CMD(%REXTEST)
/*


REXTEST code:

/* REXX */
EXIT 8



It is only exiting with CC8 so i would expect my job to reflect to that but it does not.
In the output the following can be seen:

READY
ISPSTART CMD(%REXTEST)
ISPD117
The initially invoked CLIST ended with a return code = 8
READY

However, the job finishes with CC0

GSDMV20I JOBNAME- --STEP-- -PSTEP-- CCODE
GSDMV21I ISPFTEST S002 0



David

For your test, try EXIT (8)

Hello all

(8) did not work for me but what Enrico suggested is fine, eventually i found it in the ISPF guide
Thanks for your help.

David