SQL/MX 3.2 Programming Manual for C and COBOL (H06.25+, J06.14+)

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