MVSFORUMS.com

Phantom · Posted: Wed Sep 21, 2005 6:19 am Post subject: User Abend using REXX

Hi,

One of my colleague asked me this question today. "Is there any way to force an User Abend condition thro' REXX".

She is invoking a rexx program from a JCL and wants to force an User abend code under few conditions. Normally if we set any value to "RC", the same comes out a Step return code in the JCL. But is there any way to set a Abend Code ?

My suggestion was to return a non-zero value and in Step 2 have a SORT with NULLOUT=RC16, but we would like to know if this could be handled directly using REXX.

Thanks,
Phantom

kolusu · Posted: Wed Sep 21, 2005 7:37 am Post subject:

Phantom,

Using IKJEFT01 to execuete your rexx execs will always end with return code 0. Try using IKJEFT1B instead. Use EXIT 20 which will be used as a return code of the step. You can also try issuing a CALL to non-existent load module to force an abend.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Phantom · Posted: Wed Sep 21, 2005 7:47 am Post subject:

Kolusu,

kolusu · Posted: Wed Sep 21, 2005 7:52 am Post subject:

Phantom,

May be you can use IRXTERMA. check this link

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A330/B.0?DT=20020521161835

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Phantom · Posted: Wed Sep 21, 2005 8:07 am Post subject:

Thanks a lot kolusu,

What a Coincidence !!!!...I was just browing through REXX documents (.PDF) and ended up in the same thing (IRXTERM & IRXTERMA).

It has explantion on IRXTERM for almost 4-5 pages but I "Don't Know how to Invoke the command". Need to go through the document again leisurely !!!

Thanks,
Phantom