We used to use a program called KABOOM, which did not exist (as I suspect with BLOWUP). One JCL statement, and a very prominent S806 abend. *don*
On Wed, Jan 19, 2011 at 1:07 PM, Paul Gilmartin <[email protected]>wrote: > On Wed, 19 Jan 2011 09:50:56 -0600, Jonathan Goossen wrote: > > >We force an ABEND by calling a program that always ABENDs > > > >//STEP1 ... > >//IF (STEP1.RC EQ 0) then > >//STEP2 ... > >//ELSE > >//S0000A EXEC PGM=BLOWUP > >//ENDIF > > > Do you really _want_ the ABEND? If not, why not move the > ELSE and ENDIF to the end of the JCL? > > BTW, What's an easy way to force an ABEND (without a program > specifically for the purpose)? The most concise way that > comes to mind is: > > //STEP EXEC PGM=IEBGENER > //SYSUT1 DD PATH='/',RECFM=FB,LRECL=80 > ... > ... gives a nice IEC143I 213-F8. But it requires three > additional DD statements. Is there a shorter way? > > I know I can use a trivial IDCAMS step to set RC. > > -- gil > > ---------------------------------------------------------------------- > 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 > ---------------------------------------------------------------------- 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
