declare
dname varchar2(10);
begin
for dept_rec in (select dept_id,dept_name from dept) loop
dname := dept_rec.dept_name;
dbms_output.put_line(dname);
end loop;
exception
when others then
dbms_output.put_line('エラー発生!!');
end;
例2) 無名ブロックをBEGINセクションのみで構成する
begin
for dept_rec in (select dept_id,dept_name from dept) loop
dbms_output.put_line(dept_rec.dept_name);
end loop;
end;