SQL/MX 3.2.1 Programming Manual for C and COBOL (H06.26+, J06.15+)

COBOL Sample Programs
HP NonStop SQL/MX Release 3.2.1 Programming Manual for C and COBOL—663854-005
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)