-- Programm 3-12: Gespeicherte Prozedur mit Cursor
-- meinewebapp/WEB-INF/classes/jdbcbasis/SqlCursor.plsql
PROCEDURE pCursor (zahl OUT INTEGER) IS
i INTEGER; res INTEGER; dc INTEGER;
CURSOR c IS SELECT dcode FROM Dozenten;  -- Cursor-Deklaration
BEGIN
  OPEN c; i:=1; res:=0;                  -- "getResultSet()"
  LOOP
    FETCH c INTO dc;                     -- "next()"
    EXIT WHEN c%NOTFOUND;
    res := res + dc * i; i := i + 1;
  END LOOP; 
  zahl := res; 
END;