SQL/MX 3.1 Programming Manual for C and COBOL (H06.23+, J06.12+)

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