RE: Program Status Exception Handling

Hi Joel

Thanks a ton for your reply. 

I have a different problem here. When program exceptions happen, I need
to rollback the changes that are pending on a file.

Scenario is given below:-
CL1 program calls COBOL1
In COBOL1, some program exception happens and abends with (C D F G)
inquiry message.
In CL1, after successful completion of COBOL1, I do a commit otherwise a
rollback.


When this message is replied with 'C' or 'D' or 'F' to stop continuing
the process, control will never come to CL1 program. Due to this,
Rollback is not done.

Please let me know how to handle this situation. How do I rollback any
changes that has been made on files when a program exception happens?

Thanks & Regards
Sivasubrahmanian. A
Project Engineer
Wipro Technologies (Finance & Insurance)
Electronics City, Bangalore, India
Phone - 8520408/8520416 x - 4364.

-----Original Message-----
From: cobol400-l-bounces@midrange.com
[mailto:cobol400-l-bounces@midrange.com] On Behalf Of Stone, Joel
Sent: Tuesday, January 14, 2003 12:09 AM
To: 'COBOL Programming on the iSeries/AS400'
Subject: RE: Program Status Exception Handling

There is no way to handle these errors - except to say that make sure
they
never occur!

It is like asking if code A=apples, code B=bananas, then what happens if
a
program encounters code C?  What does code C indicate??

You can test if a field is numeric, but then what?  Do you invoice the
item
for free if the cost is not numeric???  Maybe yes, maybe no!

Also, testing for numeric validity seems to really slow down program
performance!

Best approach is to ensure data IS numeric and clean prior to running a
program against the data!


-----Original Message-----
From: A. Sivasubrahmanian
[mailto:sivasubrahmanian.ananthakrishnan@wipro.com]
Sent: Monday, January 13, 2003 4:15 AM
To: cobol400-l@midrange.com
Subject: Program Status Exception Handling


Hi *ALL,

I would like to know, how to handle program exceptions like Decimal data
error, Range subscript etc within COBOL program. Please help me with a
sample code. 

Thanks & Regards
Sivasubrahmanian. A
Project Engineer
Wipro Technologies (Finance & Insurance)
Electronics City, Bangalore, India
Phone - 8520408/8520416 x - 4364.


_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.

**************************Disclaimer**************************************************
    
 
 Information contained in this E-MAIL being proprietary to Wipro Limited is 
'privileged' 
and 'confidential' and intended for use only by the individual or entity to 
which it is 
addressed. You are notified that any use, copying or dissemination of the 
information 
contained in the E-MAIL in any manner whatsoever is strictly prohibited.

****************************************************************************************