Lorsque vous souhaitez gérer les exceptions localement comme ceci :
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;
Dans cet exemple, l'exception est traitée, puis nous continuons et traitons l'employé suivant.
Une autre utilisation consiste à déclarer des variables locales qui ont une portée limitée comme ceci :
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;
Attention, vouloir faire cela est souvent un signe que votre programme est trop volumineux et devrait être décomposé :
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;
