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-4
Ensuring Data Consistency
Ensuring Data Consistency
Example C-2 executes the steps shown in Figure 14-2 on page 14-2
Example C-2. Using TMF to Ensure Data Consistency (page 1 of 2)
*--------------------------------------------------------------
* Description: Using TMF to ensure data consistency
* Statements: SET TRANSACTION
* BEGIN WORK
* Searched UPDATE
* COMMIT WORK
* ROLLBACK WORK
* WHENEVER
* GET DIAGNOSTICS
*--------------------------------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. Program-exF92.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 sqlstate pic x(5).
EXEC SQL END DECLARE SECTION END-EXEC.
01 sqlstate-ok pic x(5) value "00000".
PROCEDURE DIVISION.
START-LABEL.
DISPLAY "This example begins a transaction.".
EXEC SQL DECLARE CATALOG 'samdbcat' END-EXEC.
EXEC SQL DECLARE SCHEMA 'sales' END-EXEC.
* Set the attributes for the transaction.
EXEC SQL
SET TRANSACTION ISOLATION LEVEL SERIALIZABLE
END-EXEC.
* Start the transaction.
EXEC SQL BEGIN WORK END-EXEC.
* Update the database by resetting customer credit.
EXEC SQL
UPDATE customer SET CREDIT = 'CR'
END-EXEC.