Oracle PL/SQL语句基础学习笔记(上)

PL/SQL是ORACLE对标准数据库语言的扩展，ORACLE公司已经将PL/SQL整合到ORACLE server和其它工具中了，近几年中很多其它的开发者和DBA開始使用PL/SQL，本文将讲述PL/SQL基础语法，结构和组件、以及怎样设计并运行一个PL/SQL程序。

　　

1、PL/SQL的长处

从版本号6開始PL/SQL就被可靠的整合到ORACLE中了，一旦掌握PL/SQL的长处以及其独有的数据管理的便利性，那么你非常难想象ORACLE缺了PL/SQL的情形。PL/SQL 不是一个独立的产品，他是一个整合到ORACLEserver和ORACLE工具中的技术。能够把PL/SQL看作ORACLEserver内的一个引擎。sql语句运行者处理单个的sql语句，PL/SQL引擎处理PL/SQL程序块。

当PL/SQL程序块在PL/SQL引擎处理时，ORACLEserver中的SQL语句运行器处理pl/sql程序块中的SQL语句。

　　
　　

(1).PL/SQL的长处

• PL/SQL是一种高性能的基于事务处理的语言，能运行在不论什么ORACLE环境中，支持全部数据处理命令。

  通过使用PL/SQL程序单元处理SQL的数据定义和数据控制元素。

• PL/SQL支持全部SQL数据类型和全部SQL函数。同一时候支持全部ORACLE对象类型
• PL/SQL块能够被命名和存储在ORACLEserver中。同一时候也能被其它的PL/SQL程序或SQL命令调用，不论什么客户/server工具都能訪问PL/SQL程序，具有非常好的可重用性。

• 能够使用ORACLE数据工具管理存储在server中的PL/SQL程序的安全性。能够授权或撤销数据库其它用户訪问PL/SQL程序的能力。
• PL/SQL代码能够使用不论什么ASCII文本编辑器编写，所以对不论什么ORACLE能够运行的操作系统都是非常便利的
• 对于SQL，ORACLE必须在同一时间处理每一条SQL语句，在网络环境下这就意味作每个独立的调用都必须被oracleserver处理，这就占用大量的server时间，同一时候导致网络拥挤。

  而PL/SQL是以整个语句块发给server。这就减少了网络拥挤。

---

---

2、PL/SQL块结构

PL/SQL是一种块结构的语言。组成PL/SQL程序的单元是逻辑块。一个PL/SQL 程序包括了一个或多个逻辑块，每个块都能够划分为三个部分。与其它语言同样。变量在使用之前必须声明。PL/SQL提供了独立的专门用于处理异常的部分。

(1).PL/SQL块语法

[DECLARE]
---declaration statements
BEGIN
---executable statements
[EXCEPTION]
---exception statements
END

---

(2).PL/SQL块三部分：

• 声明部分(Declaration section)

声明部分包括了变量和常量的数据类型和初始值。这个部分是由关键字DECLARE開始，假设不须要声明变量或常量，那么能够忽略这一部分；须要说明的是游标的声明也在这一部分。

• 运行部分(Executable section)

运行部分是PL/SQL块中的指令部分，由关键字BEGIN開始，全部的可运行语句都放在这一部分，其它的PL/SQL块也能够放在这一部分。

• 异常处理部分(Exception section)

这一部分是可选的，在这一部分中处理异常或错误，对异常处理的具体讨论我们在后面进行。

PL/SQL块中的每一条语句都必须以分号结束，SQL语句能够使多行的，但分号表示该语句的结束。

一行中能够有多条SQL语句，他们之间以分号分隔。每个PL/SQL块由BEGIN或DECLARE開始，以END结束。

凝视由–标示。

---

(3).PL/SQL块的命名和匿名

PL/SQL程序块能够是一个命名的程序块也能够是一个匿名程序块。

匿名程序块能够用在server端也能够用在client。

命名程序块能够出如今其它PL/SQL程序块的声明部分，这方面比較明显的是子程序，子程序能够在运行部分引用。也能够在异常处理部分引用。

---

(4).可存储程序

PL/SQL程序块可背独立编译并存储在数据库中，不论什么与数据库相连接的应用程序都能够訪问这些存储的PL/SQL程序块。

ORACLE提供了四种类型的可存储的程序：

• 函数
• 过程
• 包
• 触发器

函数
函数是命名了的、存储在数据库中的PL/SQL程序块。函数接受零个或多个输入參数，有一个返回值，返回值的数据类型在创建函数时定义。

定义函数的语法例如以下：

FUNCTION name [{parameter[,parameter,...])] RETURN datatypes IS
[local declarations]
BEGIN
execute statements
[EXCEPTION
exception handlers]
END [name]

过程

存储过程是一个PL/SQL程序块，接受零个或多个參数作为输入(INPUT)或输出(OUTPUT)、或既作输入又作输出(INOUT)，与函数不同。存储过程没有返回值。存储过程不能由SQL语句直接使用。仅仅能通过EXECUT命令或PL/SQL程序块内部调用。

语法：

PROCEDURE name [(parameter[,parameter,...])] IS
[local declarations]
BEGIN
execute statements
[EXCEPTION
exception handlers ]
END [name] 

包(package)

包事实上就是被组合在一起的相关对象的集合。当包中不论什么函数或存储过程被调用，包就被载入入内存中，包中的不论什么函数或存储过程的子程序訪问速度将大大加快。
包由两个部分组成：规范和包主体(body),规范描写叙述变量、常量、游标、和子程序。包体全然定义子程序和游标。

触发器(trigger)

触发器与一个表或数据库事件联系在一起的。当一个触发器事件发生时，定义在表上的触发器被触发。

---

---

3、声明部分

(1).声明变量

变量存放在内存中以获得值，能被PL/SQL块引用。你能够把变量想象成一个可储藏东西的容器，容器内的东西是能够改变的。

变量一般都在PL/SQL块的声明部分声明，PL/SQL是一种强壮的类型语言。这就是说在引用变量前必须首先声明，要在运行或异常处理部分使用变量，那么变量必须首先在声明部分进行声明。

语法：

Variable_name [CONSTANT] databyte [NOT NULL][:=|DEFAULT expression] 

注意:能够在声明变量的同一时候给变量强制性的加上NOT NULL约束条件，此时变量在初始化时必须赋值。

给变量赋值有两种方式：

• 直接给变量赋值

X:=200;
Y=Y+(X*20);

• 通过SQL SELECT INTO 或FETCH INTO给变量赋值

SELECT SUM(SALARY),SUM(SALARY*0.1)
INTO TOTAL_SALARY,TATAL_COMMISSION
FROM EMPLOYEE
WHERE DEPT=10;

---

(2).声明%TYPE和%ROWTYPE类型的变量

在定义变量时处理能够使用oracle规定的数据类型外,还能够使用%TYPE和%ROWTYPE来定义变量。

%TYPE类型的变量是专门为存储在数据列中检索到的值而创建的.对于使用%TYPE创建的变量，其数据类型由系统依据检索的数据列的数据类型决定.

%ROWTYPE类型的变量,它能够一次存储从数据库检索的一行数据。

当你不知道表中的数据类型是什么时候?那你就考虑%TYPE来解决此问题。

SQL> declare  
      empno emp.empno%TYPE; //声明的时候一定要加上表的中列  
      ename emp.ename%TYPE;  
      job   emp.job%TYPE;  
     begin  
      select empno,ename,job into empno,ename,job from emp   where empno='7369';  
      dbms_output.put_line(empno||'/'||ename||'/'||job);  
     end;  
     /   
7369/SMITH/CLERK

emp.empno%TYPE;解析：首先它到emp表中去查找empno列 %TYPE返回其数据的数据类型。

%TYPE的长处：

• 可移植性高(当我们对表的数据类型发生改变时,用户不必考虑定义变量类型)
• 用户不必查看数据类型就能够定义变量能够存储检索的数据。

%ROWTYPE

SQL> declare  
      row_data emp%ROWTYPE;  
     begin  
      select * into row_data from emp where empno='7369';      dbms_output.put_line(row_data.empno||'/'||row_data.ename||'/'||row_data.job);  
     end;  
     /  

注意：假设定义了％rowtype类型的变量,该变量的结构与定义表的结构全然同样,查询时必须使用*或者列举全部的字段信息。

(3).复合变量

复合变量能够将不同的数据类型的多个值存储在一个单元中.由于复合数据类型能够实用户依据须要定义其结构,所以复合数据类型也称为自己定义数据类型。

PL/SQL提供了两种类型的复合数据类型:

• 记录类型
• 记录表类型

记录类型

在记录类型中能够存储多个标量值,与数据库中的行类似，必须使用TYPE语句定义记录类型。

语法：

TYPE record_name is record(  
Field_name data_type[not null， :=default value]  
………  
)。  

案例：

SQL> declare  
     type empinfo is record( //声明一个记录类型  
       empno number(4),  
       ename varchar2(10),  
       job varchar2(9)  
      );  

     emp_data empinfo; //声明一个记录类型的变量  
     begin  
     select empno,ename,job into emp_data from emp where empno=7369; //查询的结果赋值给定义的变量  
     dbms_output.put_line(emp_data.empno||'/'||emp_data.ename||'/'||emp_data.job);  
     end;  
     /  

与%Rowtype不同之处是

• %rowtype查询的是全部数据
• 记录类型必须使用type语法格式声明

---

记录表类型

同意用户在程序代码中使用”表”,以便存储多个行的数据。它仅仅在程序运行期间有效。

类似于程序代码中集合|数组。 它能够处理多个记录或多个行记录。

为什么使用记录表类型呢?由于我们查询的数据的往往须要返回多行记录,所以须要记录表类型。

语法：

TYPE table_name is table of data_type[not null]  
     Index by binary_integer;//主键的索引  
declare  
   type table_emp is table of emp%rowtype //创建一个表 此表的类型与emp表的类型一致  
   index by binary_integer;  

   type table_text is table of varchar2(20) //创建一个表 此表具有一个varchar2列的简单表  
   index by binary_integer;  

   empt table_emp; //声明记录表类型的变量  
   tabtext table_text;  
begin  

案例：

SQL> declare  
      type table_emp is table of emp%rowtype  
      index by binary_integer;  
      empt table_emp;  
     begin  
      empt(1).ename:='wangyi';  
      dbms_output.put_line(empt(1).ename);  
     end;  
     /  

//返回总记录  
SQL> declare  
      type table_emp is table of emp%rowtype  
      index by binary_integer;  
      empt table_emp;  
     begin  
      dbms_output.put_line(empt.count);  
     end;  
     /
0 //没有记录  

//删除的操作
表名.Delete(记录数);

//检索记录变量
First：获取第一个的索引
Next：下一个的索引 可是必须有參数
Last：最后一个的索引

SQL> declare  
      type table_emp is table of emp%rowtype  
      index by binary_integer;  
      empt table_emp;  
      i number(2):=1;  
     begin  
       while i<10  
       loop  
         empt(i).ename:='wangyi';  
         i:=i+1;  
       end loop;
      dbms_output.put_line(empt.count);
      empt.delete(2); 
      dbms_output.put_line(empt.count);
      dbms_output.put_line(empt.first);  
      dbms_output.put_line(empt.next(2));  
      dbms_output.put_line(empt.last);  
     end;  
     /
9  
8  
1  
3  
9

//查询数据库的数据赋值给你创建的记录表类型

SQL> declare  
      type table_emp is table of emp%rowtype  
      index by binary_integer;  
      empt table_emp;  
      i number(10):=0;  
     begin
      for rec in (select * from emp) loop  
        i:=i+1;  
        empt(i).ename:=rec.ename;  
       end loop;  

      dbms_output.put_line(empt.count);  
     end;  
     /
15  

//把查询的的数据全部赋值给记录表类型  
declare  
   type table_emp is table of emp%rowtype  
   index by binary_integer;  
   empt table_emp;  
   i number(10):=0;  
   j number(10):=1;  
begin
   for rec in (select * from emp) loop  
     i:=i+1;  
     empt(i).empno:=rec.empno;  
     empt(i).ename:=rec.ename;  
     empt(i).job:=rec.job;  
     empt(i).mgr:=rec.mgr;  
     empt(i).hiredate:=rec.hiredate;  
     empt(i).sal:=rec.sal;  
     empt(i).comm:=rec.comm;  
     empt(i).deptno:=rec.deptno;  
    end loop;
    while j<=empt.count loop  dbms_output.put_line(empt(j).empno||'/'||empt(j).ename||'/'||empt  
(j).job||'/'||empt(j).mgr||'/'||empt(j).hiredate||'/'||empt(j).sal||'/'||empt  
(j).comm||'/'||empt(j).deptno);  
   j:=j+1;  
 end loop;  
end;  
/ 

SQL> declare  
      type table_emp is table of emp%rowtype  
      index by binary_integer;  
      empt table_emp;  
      i number(10):=0;  
      j number(10):=1;  
     begin
      for rec in (select * from emp) loop  
        i:=i+1;  
        empt(i).empno:=rec.empno;  
        empt(i).ename:=rec.ename;  
        empt(i).job:=rec.job;  
        empt(i).mgr:=rec.mgr;  
        empt(i).hiredate:=rec.hiredate;  
        empt(i).sal:=rec.sal;  
        empt(i).comm:=rec.comm;  
        empt(i).deptno:=rec.deptno;  
      end loop;
      dbms_output.put_line(empt.count);
      while j<=empt.count loop  
      dbms_output.put_line(empt(j).empno||'/'||empt(j).ename||'/'||empt (j).job||'/'||empt(j).mgr||'/'||empt(j).hiredate||'/'||empt(j).sal||'/'||empt  
  (j).comm||'/'||empt(j).deptno);  
      j:=j+1;  
     end loop;  
  end;  
  /

---

(4).常量

常量与变量类似。但常量的值在程序内部不能改变，常量的值在定义时赋予，。他的声明方式与变量类似，但必须包括关键字CONSTANT。常量和变量都可被定义为SQL和用户定义的数据类型。

ZERO_value CONSTANT NUMBER:=0; 

这个语句定了一个名叫ZERO_value、数据类型是NUMBER、值为0的常量。

---

(5).标量(scalar)数据类型

标量(scalar)数据类型没有内部组件。他们大致可分为以下四类：

• number
• character
• date/time
• boolean

表1显示了数字数据类型。表2显示了字符数据类型。表3显示了日期和布尔数据类型。

Scalar Types:Numeric

Datatype        Range              Subtypes description 
BINARY_INTEGER  -214748-2147483647 NATURAL
NATURAL
NPOSITIVE
POSITIVEN
SIGNTYPE 

用于存储单字节整数。

要求存储长度低于NUMBER值。

用于限制范围的子类型(SUBTYPE):
NATURAL:用于非负数
POSITIVE:仅仅用于正数
NATURALN:仅仅用于非负数和非NULL值
POSITIVEN:仅仅用于正数，不能用于NULL值
SIGNTYPE:仅仅有值:-1、0或1.
NUMBER 1.0E-130-9.99E125 DEC
DECIMAL
DOUBLE
PRECISION
FLOAT
INTEGERIC
INT
NUMERIC
REAL
SMALLINT 存储数字值，包括整数和浮点数。

能够选择精度和刻度方式，

语法：

number[（[,]）]

缺省的精度是38,scale是0.
PLS_INTEGER -2147483647-2147483647 与BINARY_INTEGER基本同样，但採用机器运算时，PLS_INTEGER提供更好的性能 。

字符数据类型

datatype rang                 subtype     description 
CHAR     最大长度32767字节      CHARACTER    存储定长字符串，假设长度没有确定，缺省是1 
LONG     最大长度2147483647字节              存储可变长度字符串 
RAW      最大长度32767字节                 用于存储二进制数据和字节                                                         字符串。当在两个数据库之间进行传递时，RAW数据不在字符集之间进行转换。 


LONGRAW  最大长度2147483647                 与LONG数据类型类似，同样他也不能在字符集之间进行转换。 
ROWID    18个字节                           与数据库ROWID伪列类型相 同，能够存储一个行标示符。能够将行标示符看作数据库中每一行的唯一键值。 
VARCHAR2 最大长度32767字节     STRINGVARCHAR 与VARCHAR数据类型类似，存储可变长度的字符串。
声明方法与VARCHAR同样  

DATE和BOOLEAN

datatype range          description 
BOOLEAN  TRUE/FALSE     存储逻辑值TRUE或FALSE,无參数 
DATE     01/01/4712 BC  存储固定长的日期和时间值，日期值中包括时间 

---

(6).LOB数据类型

LOB(大对象,Large object) 数据类型用于存储类似图像，声音这样的大型数据对象。LOB数据对象能够是二进制数据也能够是字符数据，其最大长度不超过4G。LOB数据类型支持随意訪问方式。LONG仅仅支持顺序訪问方式。LOB存储在一个单独的位置上。同一时候一个”LOB定位符”(LOB locator)存储在原始的表中。该定位符是一个指向实际数据的指针。

在PL/SQL中操作LOB数据对象使用ORACLE提供的包DBMS_LOB.LOB数据类型可分为以下四类：

• BFILE
• BLOB
• CLOB
• NCLOB

---

(7).操作符

与其它程序设计语言同样，PL/SQL有一系列操作符。操作符分为以下几类：

• 算术操作符
• 关系操作符
• 比較操作符
• 逻辑操作符

算术操作符

operator operation 
+        加 
-        减 
/        除 
*        乘 
**       乘方 

关系操作符主要用于条件推断语句或用于where子串中，关系操作符检查条件和结果是否为true或false。

关系操作符

operator operation 
<        小于操作符 
<=       小于或等于操作符 
>        大于操作符 
>=       大于或等于操作符 
=        等于操作符  
!=       不等于操作符 
<>       不等于操作符 
:=       赋值操作符 

比較操作符

operator  operation 
IS NULL   假设操作数为NULL返回TRUE 
LIKE      比較字符串值 
BETWEEN   验证值是否在范围之内 
IN        验证操作数在设定的一系列值中

逻辑操作符

operator operation 
AND      两个条件都必须满足 
OR       仅仅要满足两个条件中的一个 
NOT      取反 

---

---

4、运行部分

运行部分包括了全部的语句和表达式,运行部分以关键字BEGIN開始，以关键字EXCEPTION结束。假设EXCEPTION不存在，那么将以关键字END结束。

分号分隔每一条语句，使用赋值操作符:=或SELECT INTO或FETCH INTO给每个变量赋值，运行部分的错误将在异常处理部分解决。在运行部分中能够使用还有一个PL/SQL程序块，这样的程序块被称为嵌套块全部的SQL数据操作语句都能够用于运行部分。PL/SQL块不能再屏幕上显示SELECT语句的输出。SELECT语句必须包括一个INTO子串或者是游标的一部分。运行部分使用的变量和常量必须首先在声明部分声明，运行部分必须至少包括一条可运行语句，NULL是一条合法的可运行语句，事物控制语句COMMIT和ROLLBACK能够在运行部分使用，数据定义语言(Data Definition language)不能在运行部分中使用，DDL语句与EXECUTE IMMEDIATE一起使用或者是DBMS_SQL调用。(??

)

运行一个PL/SQL块

SQL*PLUS中匿名的PL/SQL块的运行是在PL/SQL块后输入“/”来运行，如以下的样例所看到的：

declare 
　v_comm_percent constant number:=10;
begin
　update emp
　set comm=sal*v_comm_percent
　where deptno=10;
　end
SQL> /
PL/SQL procedure successfully completed.
SQL> 

命名的程序与匿名程序的运行不同，运行命名的程序块必须使用execute关键字：

create or replace procedure update_commission
　(v_dept in number,v_pervent in number default 10) is 
begin
　update emp
　set comm=sal*v_percent
　where deptno=v_dept;
end
SQL>/
Procedure created
SQL>execute update_commission(10,15);
PL/SQL procedure successfully completed.
SQL>  

假设在还有一个命名程序块或匿名程序块中运行这个程序，那么就不须要EXECUTE关键字。

declare
　v_dept number;
begin
　select a.deptno
　into v_dept
　from emp a
　where job='PRESIDENT'
　update_commission(v_dept);
end
SQL>/
　PL/SQL procedure successfully completed
SQL> 

---

---

5、控制结构

控制结构控制PL/SQL程序流程的代码行,PL/SQL支持条件控制和循环控制结构。

(1).条件控制

IF..THEN

语法：

IF condition THEN
　Statements 1;
　Statements 2;
　....
END IF 

IF语句推断条件condition是否为TRUE，假设是，则运行THEN后面的语句，假设condition为false或NULL则跳过THEN到END IF之间的语句，运行END IF后面的语句。

IF..THEN…ELSE

语法:

IF condition THEN
　Statements 1;
　Statements 2;
　....
ELSE
　Statements 1;
　Statements 2;
　....
END IF

假设条件condition为TRUE,则运行THEN到ELSE之间的语句。否则运行ELSE到END IF之间的语句。

IF 能够嵌套。能够在IF 或IF ..ELSE语句中使用IF或IF..ELSE语句。

if (a>b) and (a>c) then
　　g:=a;
else
　　g:=b;
　　if c>g then
　　　g:=c;
　　end if
end if 

IF..THEN..ELSIF

语法：

IF condition1 THEN
　statement1;
ELSIF condition2 THEN
　statement2;
ELSIF condition3 THEN
　statement3;
ELSE
　statement4;
END IF;
　statement5;

假设条件condition1为TRUE则运行statement1,然后运行statement5,否则推断condition2是否为TRUE,若为TRUE则运行statement2,然后运行statement5,对于condition3也是同样的，假设condition1，condition2，condition3都不成立，那么将运行statement4,然后运行statement5。

---

　　
(2).循环控制

循环控制的基本形式是LOOP语句，LOOP和END LOOP之间的语句将无限次的运行。

LOOP..END LOOP

LOOP 
    statements;
END LOOP

LOOP和END LOOP之间的语句无限次的运行显然是不行的，那么在使用LOOP语句时必须使用EXIT语句。强制循环结束。比如：

X:=100;
LOOP
　X:=X+10;
　IF X>1000 THEN
　　EXIT;
　END IF
END LOOP;
Y:=X; 

此时Y的值是1010。

LOOP..EXIT WHEN..END LOOP

EXIT WHEN语句将结束循环，假设条件为TRUE，则结束循环。

X:=100;
LOOP
X:=X+10;
EXIT WHEN X>1000;
X:=X+10;
END LOOP;
Y:=X;

WHILE..LOOP..END LOOP

WHILE..LOOP有一个条件与循环相联系，假设条件为TRUE,则运行循环体内的语句，假设结果为FALSE,则结束循环。

X:=100;
WHILE X<=1000 LOOP
　X:=X+10;
END LOOP;
Y=X;  

FOR…LOOP

语法：

FOR counter IN [REVERSE] start_range....end_range LOOP
statements;
END LOOP; 

LOOP和WHILE循环的循环次数都是不确定的。FOR循环的循环次数是固定的，counter是一个隐式声明的变量，他的初始值是start_range,第二个值是start_range+1,直到end_range,假设start_range等于end _range,那么循环将运行一次。

假设使用了REVERSE关键字，那么范围将是一个降序。

X:=100;
FOR v_counter in 1..10 loop
x:=x+10;
end loop
y:=x; 

假设要退出for循环能够使用EXIT语句。

---

---

6、标签

用户能够使用标签使程序获得更好的可读性。程序块或循环都能够被标记。标签的形式是<>。

标记程序块

<>
[DECLARE]
... ... ...
BEGIN
........
[EXCEPTION]
.......
END label_name 
　　标记循环
<>
LOOP
.........
<>
loop
..........
<>
loop
....
EXIT outer_loop WHEN v_condition=0;
end loop innermost_loop;
..........
END LOOP inner_loop;
END LOOP outer_loop;

---

---

7、GOTO语句

语法：
　　

GOTO LABEL;

运行GOTO语句时。控制会马上转到由标签标记的语句。

PL/SQL中对GOTO语句有一些限制。对于块、循环、IF语句而言。从外层跳转到内层是非法的。

X ：=100;
FOR V_COUNTER IN 1..10 LOOP
　IF V_COUNTER =4 THEN
　　GOTO end_of_loop
　END IF
　X:=X+10;
　<>
　NULL
END LOOP
Y:=X;  

注意：NULL是一个合法的可运行语句。

---

---

8、嵌套

程序块的内部能够有还有一个程序块这样的情况称为嵌套。嵌套要注意的是变量，定义在最外部程序块中的变量能够在全部子块中使用，假设在子块中定义了与外部程序块变量同样的变量名，在运行子块时将使用子块中定义的变量。子块中定义的变量不能被父块引用。

同样GOTO语句不能由父块跳转道子块中，反之则是合法的。

《OUTER BLOCK》
DECLARE
　A_NUMBER INTEGER。
　B_NUMBER INTEGER；
BEGIN
　--A_NUMBER and B_NUMBER are available here
　<>
　DECLARE
　C_NUMBER INTEGER
　B_NUMBER NUMBER(20)
BEGIN
　C_NUMBER:=A_NUMBER;
　C_NUMBER=OUTER_BLOCK.B_NUMBER;
END SUB_BLOCK;
END OUT_BLOCK;