MVSFORUMS.com

vani · Beginner Joined: 28 May 2003 Posts: 51 Topics: 30

Hi
I have a cobol-db2 program where iam inserting a row into the table and doing a divide by zero abend. Instead of rolling back, DB2 is inserting that row into the table. I have no commit statements in the program.
Is there any options to be set? Please explain how this is possible.

Regards,
Vani

SureshKumar · Intermediate Joined: 23 Jan 2003 Posts: 211 Topics: 21

Vani,
Are you checking the return code from the SQL statment after execution ?. DB2 does some Rollback for abends like -911, -913 etc. But for most other situations we need to check and issue a Rollback. Most installations have a common abend routine to be performed, like
EVALUATE SQLCODE
WHEN 0
CONTINUE
WHEN OTHER
DISPLAY 'ABEND CODE '
PERFORM Standard error routine
END-EVALUATE.

SureshKumar · Intermediate Joined: 23 Jan 2003 Posts: 211 Topics: 21

Vani,
A quick follow-up, if the return code(SQLCODE) is not checked and the job ends the database changes will be commited automattically.

vani · Beginner Joined: 28 May 2003 Posts: 51 Topics: 30

Thanx,
Even after checking the return code, the job is abending with a return code of 3000 but Roll back is not performed. The record is getting inserted. The SQL code returned when displayed was 00000080L. The Cobol Error suggests that the thread is getting cut but as per the theory, when the thread gets released, DB2 does a roll back till the last commit point, which is not happening.

Regards,
vani

kolusu · Posted: Mon Sep 01, 2003 8:36 am Post subject:

vani,