Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 52
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: 1783
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: 7314

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: 10375
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: 1932
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: 52
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 ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Mainframe scheduling tool ddhar Compuware & Other Tools 2 Wed Sep 27, 2017 12:48 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts DATAFIX tool jzhardy DB2 0 Wed Aug 09, 2017 9:13 am
No new posts Need info on EIBCPOSN value in IBM FA... subratarec CICS 11 Wed Jul 12, 2017 3:45 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us