SQL Statements › DELETE › Processing › Example 3

Example 3

Deletes the row where the cursor is positioned.

EXEC SQL

DECLARE C1 CURSOR FOR

SELECT DEPTNO, DEPTNAME, MGRNO
FROM DEPTTBL
WHERE ADMDEPT='A'

END-EXEC.

EXEC SQL

OPEN C1

END-EXEC.

FETCH-LOOP.

IF SQLCODE = 

EXEC SQL
  FETCH C1 INTO :DNUM, :DNAME, :MNUM
END EXEC.
EXEC SQL
  DELETE FROM DEPTTBL
  WHERE CURRENT OF C1
END-EXEC.
GO TO FETCH LOOP.

EXEC SQL

CLOSE C1

END-EXEC.