PL/SQL - Löschen aktuellen Datensatz in IN LOOP

Question

Ich versuche, herauszufinden, wie einen Datensatz zu löschen, die für die Verwendung .. IN .. LOOP

FOR REC IN (SELECT * FROM WORKLIST) LOOP 
    GET_DATA(REC); 
    --DELETE REC FROM WORKLIST 
END LOOP; 

Die GET_DATA Prozedur jede Zeile auf mehrere diejenigen explodiert so wird der aktuelle veraltet. Ich versuche gerade den aktuellen Datensatz zu löschen. Nicht sicher, ob dies in diesem Fall mit dem REC-Objekt möglich ist.

Leider hat WORKLIST keine Schlüssel.

Answer 1

Verwenden current of auf cursor:

DECLARE 
CURSOR c1 IS 
    SELECT * from worklist FOR UPDATE <any column name>; 
BEGIN 
     open c1; 
     loop 
      fetch c1 into crow; 
      exit when c1%notfound; 
      DELETE FROM worklist WHERE CURRENT OF c1; 
     end loop;   
     COMMIT; 
     close c1; 
END; 

Answer 2

Wenn WORKLIST einen Primärschlüssel hat, es einfach verwenden:

DELETE FROM WORKLIST WHERE <PK> = REC.<PK> 

Wenn kein Primärschlüssel ich versuchen würde,:

DECLARE 
    vTmp schema.worklist%rowtype; 
BEGIN 
    FOR rec IN (SELECT rowid, w.* FROM WORKLIST w) LOOP 
    vTmp := null; 
    vTmp.col1 := rec.col1; 
    vTmp.col2 := rec.col2; 
    -- And so on ... 
    GET_DATE(vTmp); 
    DELETE FROM WORKLIST WHERE rowid = rec.rowid; 
    END LOOP; 
END;