使用嵌套块
在PL/SQL块中可以嵌套子块，嵌套的块既可以放在外部块的执行部分，也可以放在异常处理部分，但是不能放在外部块声明部分
内部嵌套块可以访问外部嵌套块声明的变量，但是外部声明块不能访问内部声明块中的变量
declare
v_deptno number(2) := 50 ;
v_dname varchar2(12) ;
begin
begin
select dname into v_dname from scott.dept where deptno = v_deptno ;
dbms_output.put_line('您好查找的部门是： '|| v_dname);
end ;
declare
v_loc varchar2(10) := '深圳南山';
begin
update SCOTT.DEPT set loc = v_loc where deptno = v_deptno ;
dbms_output.put_line('在内嵌块中成功更新部门资料！ ');
end ;
exception when no_data_found
then begin
insert into scott.dept values(v_deptno,'信息部','深圳') ;
dbms_output.put_line('在异常处理模块成功恢复资料！');
exception when others
then
dbms_output.put_line('未知异常！');
end;
end;
此段程序共有三个begin--end结构。
第一组begin-end 结构是引导整个程序块，所以是主结构；
第二个 是用来查询部门信息的
begin
select dname into v_dname from scott.dept where deptno = v_deptno ;
dbms_output.put_line('您好查找的部门是： '|| v_dname);
end ;
其实这个begin-end 结构可以去掉，并不影响程序执行
第三个是用来更新部门信息的 ，其完整代码如下
declare
v_loc varchar2(10) := '深圳南山';
begin
update SCOTT.DEPT set loc = v_loc where deptno = v_deptno ;
dbms_output.put_line('在内嵌块中成功更新部门资料！ ');
end ;
这里的begin-end 结构是不可以去掉的 ，因为在后续语句执行之前 进行了变量定义，
即：declare
v_loc varchar2(10) := '深圳南山';
在一个单一的begin-end结构中是不能再重新定义变量的，除非此时已经决定此变量不属于此begin-end结构，所以这里的begin-end不能删除。
附：使用命名嵌套块
<<外部块>>
declare
v_deptno number(2) := 50 ;
v_dname varchar2(12) ;
begin
<<查询员工名称块>>
begin
select dname into v_dname from scott.dept where deptno = v_deptno ;
dbms_output.put_line('您好查找的部门是： '|| v_dname);
end ;
<<更新员工部门块>>
declare
v_loc varchar2(10) := '深圳南山';
begin
update SCOTT.DEPT set loc = v_loc where deptno = v_deptno ;
dbms_output.put_line('在内嵌块中成功更新部门资料！ ');
end ;
exception when no_data_found
then begin
insert into scott.dept values(v_deptno,'信息部','深圳') ;
dbms_output.put_line('在异常处理模块成功恢复资料！');
exception when others
then
dbms_output.put_line('未知异常！');
end;
end;
