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

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
never occur!

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

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

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

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

-----Original Message-----
From: A. Sivasubrahmanian
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
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.

 Information contained in this E-MAIL being proprietary to Wipro Limited is 
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 
contained in the E-MAIL in any manner whatsoever is strictly prohibited.


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.