PL/SQLでCURSORを使用してUPDATEしようとしているのですが、
正常終了するものの、更新がされていません。何が問題でしょうか?
CREATE TABLE TABLE1 (
COL1 CHAR(3),
COL2 CHAR(3)
);
CREATE TABLE TABLE2 (
COL1 CHAR(3)
);
INSERT INTO TABLE1 VALUES('ABC','001');
INSERT INTO TABLE2 VALUES('ABC');
COMMIT;
DECLARE
CURSOR C1_CURSOR IS
SELECT T1.COL1,T1.COL2
FROM TABLE1 T1
JOIN TABLE2 T2
ON T1.COL1 = T2.COL1
FOR UPDATE;
C1 C1_CURSOR%ROWTYPE;
BEGIN
OPEN C1_CURSOR;
LOOP
FETCH C1_CURSOR INTO C1;
EXIT WHEN C1_CURSOR%NOTFOUND;
UPDATE TABLE1
SET COL2 = '999'
WHERE CURRENT OF C1_CURSOR;
END LOOP;
CLOSE C1_CURSOR;
COMMIT;
END;
SELECT * FROM TABLE1;
⇒ COL2 が '999'になっていない!!