SQL/MX Programming Manual for C and COBOL (G06.24+, H06.03+)

COBOL Sample Programs
HP NonStop SQL/MX Programming Manual for C and COBOL—523627-004
C-5
Ensuring Data Consistency
IF sqlstate = sqlstate-ok
DISPLAY "The transaction is committed."
EXEC SQL COMMIT WORK END-EXEC.
ELSE
DISPLAY "The transaction is rolled back."
EXEC SQL ROLLBACK WORK END-EXEC.
END-IF.
STOP RUN.
****************************************************************
END PROGRAM Program-exF92.
****************************************************************
Example C-2. Using TMF to Ensure Data Consistency (page 2 of 2)