MVSFORUMS.com

rajeshkoratti · Beginner Joined: 14 Feb 2006 Posts: 42 Topics: 22

Hi All
I would like to know how can you forcefully ABEND a COBOL Program?
Ok let me explain it in detail.
I have a PARM file which will have only one record. IF the file is empty (Which will not occur in ideal scenarios) i want the program to ABEND rather than just displaying a SYSOUT message.
Is there anyways i can acheive it.
_________________
Thanks and Regards..
Rajesh

Grant · Posted: Wed Mar 22, 2006 10:40 pm Post subject:

If you really need to abend, have a look for CEE3ABD (or ILBOABN0 if not LE).

It seems overkill to abend in this situation. What information is the dump going to tell you that could not be obtained from 1 line in your sysout ?

You may also want to move a value to RETURN-CODE

rajeshkoratti · Beginner Joined: 14 Feb 2006 Posts: 42 Topics: 22

Thanks Grant
I used CEE3ABD to ABEND my program
_________________
Thanks and Regards..
Rajesh

Cogito-Ergo-Sum · Posted: Thu Mar 23, 2006 12:02 am Post subject:

Rajesh,
Go for Grant's suggestion.

mf_user · Intermediate Joined: 01 Jun 2003 Posts: 372 Topics: 105

Hi,

Even you can force a S0C7 abend also after checking the file for emptiness. We use to do this by adding numeric to an uninitialized alphanumeric variable in our earlier project. Strangely, it was the client that asked for this type of program abend.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==

Phantom · Posted: Mon Apr 10, 2006 12:21 am Post subject:

Mf_User,

Its always good to use user Abends accompanied with a Sysout message explaining the reason rather than using System abends. It might lead to unwanted confusions. Ofcourse, you do not have a choice when your client insists for such a thing but the best practice is to give a clear picture of what happened to production support guys.

Thanks,
Phantom