MVSFORUMS.com

pleonard · Beginner Joined: 19 May 2010 Posts: 2 Topics: 1

I need to force an abend maybe using ABENDCC parameter if any prior step finish with RC > 16. For example:

//STEP1 EXEC PGM=A

//STEP2 EXEC PGM=B

//IFRCGT0 IF (RC > 16) THEN
needs to abend with U0127
// ENDIF

Thanks
Paulo

kolusu · Posted: Wed May 19, 2010 11:47 am Post subject:

pleonard,

What is user abend U0127?

kolusu

pleonard · Beginner Joined: 19 May 2010 Posts: 2 Topics: 1

just my user abend. Could be any number (I guess).

kolusu · Posted: Wed May 19, 2010 1:29 pm Post subject:

pleonard,

Run this program to abend. The program will abend with ABEND=S000 U0016 REASON=00000000

papadi · Supermod Joined: 20 Oct 2009 Posts: 594 Topics: 1

If you modify that code to use a parm, you could generate different User abend codes for different requirements. . .

If the parm is missing or invalid generate the default U0016 abend. Otherwise, generate the specified Unnnn abend. . .
_________________
All the best,

di

rlilley · Beginner Joined: 05 Apr 2010 Posts: 19 Topics: 3

File 233 on the CBT contains a program GBHABEND which will do exactly what you need. The parm controls the number of the USER abend

http://www.cbttape.org/cbtdowns.htm