SQL/MX 2.x Reference Manual (H06.04+)

SQL/MX Statements
HP NonStop SQL/MX Reference Manual—540440-003
2-32
COBOL Examples of COMMIT WORK
COBOL Examples of COMMIT WORK
•
Begin a transaction, execute an UPDATE statement, and test SQLSTATE. If the
UPDATE is successful, the database changes are committed. Otherwise, the
database changes are rolled back.
...
01 SQLSTATE-OK PIC X(5) VALUE "00000".
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 SQLSTATE PIC X(5).
...
EXEC SQL END DECLARE SECTION END-EXEC.
...
* Start a transaction.
EXEC SQL BEGIN WORK END-EXEC.
...
* Change the database.
EXEC SQL UPDATE ... END-EXEC.
...
* Commit or roll back the changes.
IF SQLSTATE = SQLSTATE-OK
EXEC SQL COMMIT WORK END-EXEC.
ELSE
EXEC SQL ROLLBACK WORK END-EXEC.