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
