Quando vuoi gestire le eccezioni localmente in questo modo:
begin
for emp_rec in (select * from emp) loop
begin
my_proc (emp_rec);
exception
when some_exception then
log_error('Failed to process employee '||emp_rec.empno);
end;
end loop;
end;
In questo esempio, l'eccezione viene gestita e quindi proseguiamo ed elaboriamo il dipendente successivo.
Un altro uso è dichiarare variabili locali che hanno un ambito limitato come questo:
declare
l_var1 integer;
-- lots of variables
begin
-- lots of lines of code
...
for emp_rec in (select * from emp) loop
declare
l_localvar integer := 0;
begin
-- Use l_localvar
...
end
end loop;
end;
Intendiamoci, volerlo fare è spesso un segno che il tuo programma è troppo grande e dovrebbe essere interrotto:
declare
l_var1 integer;
-- lots of variables
...
procedure local_proc (emp_rec emp%rowtype):
l_localvar integer := 0;
begin
-- Use l_localvar
...
end
begin
-- lots of lines of code
...
for emp_rec in (select * from emp) loop
local_proc (emp_rec);
end loop;
end;