SQL/MX 2.x Reference Manual (G06.24+, H06.03+)

SQL/MX Statements
HP NonStop SQL/MX Reference Manual—523725-004
2-117
COBOL Examples of DELETE
SERIALIZABLE ACCESS;
...
EXEC SQL OPEN emp_cursor;
...
EXEC SQL FETCH emp_cursor
INTO :hv_empnum, :hv_deptnum, :hv_jobcode, :hv_salary;
... /* Process fetched row. */
if (hv_jobcode == 1234)
EXEC SQL DELETE FROM PERSNL.EMPLOYEE
WHERE CURRENT OF emp_cursor;
COBOL Examples of DELETE
•
Remove the row for JOHN WALKER from the EMPLOYEE table:
EXEC SQL DELETE FROM PERSNL.EMPLOYEE
WHERE FIRST_NAME = 'JOHN' AND LAST_NAME = 'WALKER'
SERIALIZABLE ACCESS
END-EXEC.
•
Use a cursor and delete some of the returned rows during processing:
...
EXEC SQL DECLARE emp_cursor CURSOR FOR
SELECT EMPNUM, DEPTNUM, JOBCODE, SALARY
FOR UPDATE ACCESS
FROM PERSNL.EMPLOYEE
SERIALIZABLE ACCESS
END-EXEC.
...
EXEC SQL OPEN emp_cursor END-EXEC.
...
EXEC SQL FETCH emp_cursor
INTO :hv-empnum, :hv-deptnum,
:hv-jobcode, :hv-salary
END-EXEC.
...
* Process fetched row.
IF hv-jobcode = 1234
EXEC SQL DELETE FROM PERSNL.EMPLOYEE
WHERE CURRENT OF emp_cursor
END-EXEC.
END-IF.
...