Cursor în PL/SQL

Instrucţiunile SQL se execută în PL/SQL folosind anumite zone de lucru, numite cursoare. In PL/SQL se folosesc două tipuri de cursoare:

implicite, declarate printr-o instrucţiune SELECT ce are ca rezultat o singură linie, sau prin instrucţiuni de gestiune a datelor (INSERT, UPDATE, DELETE). Un astfel de cursor se identifică prin denumirea SQL
explicite, declarate prin instrucţiuni

Un cursor explicit se defineşte în partea de declaraţii a unei unităţi de program astfel:

CURSOR nume_cursor [(parametru [, parametru] ...)]
IS instructiune_SELECT;

unde un parametru ce apare în lista de parametri se poate folosi numai în această instrucţiune şi are forma:

nume_parametru tip_data [:= expresie]

Exemplu:

DECLARE
  CURSOR sectii IS SELECT cod FROM sectii;  
  CURSOR grupe(an integer) IS SELECT cod,sectia,anstudiu FROM formatii WHERE anuniv=an;
BEGIN
  null;
END;

Parcurgerea înregistrărilor dintr-un cursor se poate face astfel:

Folosirea unei variante a instrucţiunii de ciclare FOR sub forma:

FOR variabila IN nume_cursor[(lista_parametri)] LOOP
   folosirea unei înregistrări curente din cursor memorată în variabila de ciclare
END LOOP;

Variabila folosită în instrucţiune trebuie declarată anterior şi trebuie să fie de tipul liniilor din cursor.
Instructiunea FOR se poate folosi şi sub forma:

FOR variabila IN (instructiune_select) LOOP
   folosirea unei înregistrări curente din colecţia de înregistrări precizată de instrucţiunea select
END LOOP;

Folosirea unor instrucţiuni şi proprietăti pentru cursor:
- OPEN nume_cursor[([nume_parametru[=>expresie] [, [nume_parametru[=>expresie]]...)];
  care deschide un cursor
- FETCH nume_cursor INTO {lista_variabile | variabila};
  care mută o înregistrare din cursor într-o listă de variabile. La fiecare execuţie a acestei instrucţiuni se face şi deplasarea la următoarea înregistrare din cursor
- Cu numele unui cursor se pot folosi proprietatile: FOUND, NOTFOUND, ISOPEN, ROWCOUNT.
  După deschiderea cursorului şi înainte de utilizarea instrucţiunii FETCH valoarea furnizată de aceste proprietăţi este null.
  Folosirea acestor proprietăţi înainte de deschiderea cursorului va genera o eroare.
  - nume_cursor%FOUND - care dă valoarea true dacă ultima instrucţiune FETCH a găsit o înregistrare care s-a mutat în lista de variabile, şi false în caz contrar.
  - nume_cursor%NOTFOUND furnizează valoarea contrară lui FOUND
  - nume_cursor%ISOPEN furnizează valoarea true dacă este deschis cursorul, şi false în caz contrar
  - nume_cursor%ROWCOUNT furnizează numărul de linii parcurse din cursor
- CLOSE nume_cursor; - pentru închiderea cursorului

Utilizarea unui cursor pentru actualizarea datelor

La declararea cursorului se precizează intenţia de folosire a cursorului pentru modificare:
```
Cursor ... is
Select ...
for update [of coloane] [nowait];
```
Dacă la folosirea cursorului nu se poate face blocarea liniilor ce se modifică, atunci:
- nu se aşteaptă blocarea (în instrucţiune apare nowait) şi se generează o eroare
- se aşteaptă nedefinit (nu apare nowait) până la deblocarea înregistrărilor
La parcurgerea cursorului, pentru linia curentă se foloseşte update sau delete, fără condiţii, sub forma:
update tabel set ... where current of cursor;
delete from tabel where current of cursor;

Exemple de utilizare cursor:

set serveroutput on

declare 
  cursor stud(s char) is
  select distinct st.*
    from studenti st 
    where sectia=s order by nume,prenume;
  x stud%rowtype;
begin
   dbms_output.enable;
   for x in stud('43') loop
      dbms_output.put_line(trim(x.nume) || ' ' || trim(x.prenume));
   end loop;
end;

set serveroutput on

declare 
  cursor stud(s char) is
  select *
    from studenti
    where sectia=s order by nume,prenume;
  x stud%rowtype;
begin
   dbms_output.enable;
   open stud('43');
   fetch stud into x;
   while stud%found loop
      dbms_output.put_line(trim(x.nume) || ' ' || trim(x.prenume));
      fetch stud into x;
   end loop;
  close stud;
end;