SQL/MX 3.1 Reference Manual (H06.23+, J06.12+)

SQL/MX Statements
HP NonStop SQL/MX Release 3.1 Reference Manual—663850-001
2-44
C Examples of BEGIN WORK
WHERE partnum = 4102 AND loc_code = 'G45';
--- 1 row(s) updated.
--- This statement ends a transaction.
COMMIT WORK;
--- SQL operation complete.
C Examples of BEGIN 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:
...
CHAR SQLSTATE_OK[6] = "00000";
EXEC SQL BEGIN DECLARE SECTION;
CHAR SQLSTATE[6];
...
EXEC SQL END DECLARE SECTION;
...
EXEC SQL BEGIN WORK; /* Start a transaction. */
...
EXEC SQL UPDATE ... ; /* Change the database. */
...
if (strcmp(SQLSTATE, SQLSTATE_OK) == 0)
EXEC SQL COMMIT WORK; /* Commit the changes. */
else
EXEC SQL ROLLBACK WORK; /* Roll back the changes. */
COBOL Examples of BEGIN 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.