Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

IBM Tool to Abend Job

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
AJAYREDDY

New User


Joined: 17 Feb 2007
Posts: 47
Location: USA

PostPosted: Sat Feb 02, 2013 12:54 am    Post subject: IBM Tool to Abend Job
Reply with quote

Is there any IBM tool (similar to IEBGENER ICETOOL) to abend the Job based on condition code parameter?

Right now I am giving like this. The program AA0000CP is cobol program. It will run only when return code of previous step AC000111 is not equal to zeros. Then the Job will abend (beause this program has only abend routine in Procedure division). But instead, if there is any IBM tool that would be more helpful.

//AA0000CP EXEC PGM=AA0000CP,COND=(0,GE,AC000111)

If there is no tool can we write a abend step using ICETOOL ?
Back to top
View user's profile Send private message

Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1746
Location: Bloomington, IL

PostPosted: Sat Feb 02, 2013 1:10 am    Post subject:
Reply with quote

Assuming that your shop doesn't not already have a program to produce an abend at will -- most have had such for decades -- you can write a trivial one in the language of your choice that calls CEE3ABD or CEE3AB2.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7251

PostPosted: Sat Feb 02, 2013 1:55 am    Post subject: Reply to: IBM Tool to Abend Job
Reply with quote

I believe there is a Utility from the old System/365 days. It is called IEBNPH.

Code:
//PICKLE EXEC PGM=IEBNPH,COND=blah stuff


It needs no DD statements, not even SYSOUT or SYSIN, STEPLIB or JOBLIB, but you can code them if you want. It has a reputation for being even shorter in code volume than IEFBR14, but if you locate it and browse it, you'll be able to confirm or deny that.

Works for me. Gets S806 every time. Remarkable how it has survived unchanged through so many versions of the Operating System.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Sat Feb 02, 2013 2:01 am    Post subject: Reply to: IBM Tool to Abend Job
Reply with quote

icon_eek.gif

using a non existing program to abend a job has been common practice since ,
let me think.... about 1975

the standard name was EXPCT806 ( expect an s806 )

and it was used mostly when OPC was pretty primitive and needed an aben for proper resource cleanup

nowadays it is a pretty outdated technique
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1722
Location: UK

PostPosted: Sat Feb 02, 2013 4:14 am    Post subject:
Reply with quote

I use PGM=NOTFOUND

For trying out JCL condition codes I have a little program that takes a parameter that is the return code required or even a parameter that will cause the program to abend.
Back to top
View user's profile Send private message
AJAYREDDY

New User


Joined: 17 Feb 2007
Posts: 47
Location: USA

PostPosted: Tue Feb 05, 2013 11:57 pm    Post subject:
Reply with quote

Thank you all for inputs. I think right now I will go with my usual cobol program AA0000CP which calls CEE3ABD. This program has only this Call in procedure division with no other statements (except DISPLAY statements).
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts Interface from Mainframe to Confluenc... hblun CLIST & REXX 4 Tue Sep 20, 2016 5:47 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts S213-14 ABEND explantion Apurva Mehta JCL & VSAM 5 Thu Jul 07, 2016 10:56 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us