How can you revert all the DB2 table changes done in a COBOL-DB2 program?

We can revert all the changes done on a COBOL-DB2 program using the ROLLBACK statement. However, ROLLBACK is only applicable until COMMIT has not been issued. If we have used a COMMIT statement, then ROLLBACK will revert all the changes made in DB2 tables after the last COMMIT point.

For example, after the commit statement, we execute an UPDATE statement to modify the ORDER_PAID column of ORDERS table. After that if we fire ROLLBACK then the UPDATE on the ORDERS table will be reverted.

Example

EXEC SQL COMMIT END-EXEC EXEC SQL UPDATE ORDERS    SET ORDERS_PAID = ‘YES’ WHERE ORDER_DATE = :WS-CURRENT-DATE END-EXEC EXEC SQL ROLLBACK END-EXEC

In this case, after firing the ROLLBACK statement, all the changes made by UPDATE statement will be reverted.