In a Cobol-DB2 program, I am fetching rows from 4 tables using cursor and then

In a Cobol-DB2 program, I am fetching rows from 4 tables
using cursor and then based on the a field present in that
table, It processes the information accordingly..for
example stat-c is one digit field..if stat-c is 'D' then
the a row is deleted from table and written those details
in to a file. If the stat-c is 'U' then a row is updated
(hardcoded what to update)in a table and written those
details in to a file. If the stat-c is 'I' then a row is
inserted in a table and written those details in to two
files. The issue is i have to include the intermediate
commits. When an abend occurs, due to commit statement db2
tables will be saved, But there will be lose of file
contents. When we resubmitting the job associated with this
program there will be insert ,update and delete anomolies
to avoid that what measures could be taken?.

The intermediate commit is nothing but issuing
commit after massive inserts, updates and deletes(sum of
500actions)

Question Posted / shyamsundarms

2 Answers
8158 Views
I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

In a Cobol-DB2 program, I am fetching rows from 4 tables using cursor and then based on the a fiel..

Answer / vijay

Use DISP=(MOD,CATLG,CATLG)

Is This Answer Correct ?

0 Yes

0 No

In a Cobol-DB2 program, I am fetching rows from 4 tables using cursor and then based on the a fiel..

Answer / just helpin

This is a JCL question, not a DB2 one.

You have to make two steps in your JCL. In the first step
preallocate the output file. In the second step run your
program and have DISP=(MOD,KEEP,KEEP) on the output file.
When you rerun after an abend restart the from the second
step.

Is This Answer Correct ?

0 Yes

1 No

Post New Answer