MogDB/openGauss 关于 PL/SQL 匿名块调用测试
一、原理介绍
PL/SQL(Procedure Language/Structure Query Language)是标准 SQL 语言添加了过程化功能的一门程序设计语言。
单一的 SQL 语句只能进行数据操作，没有流程控制，无法开发复杂的应用。PL/SQL 语言是结合了结构化查询与数据库自身过程控制为一体的强大语言。
1.PL/SQL 原理
PL/SQL 是一种块结构的语言，它将一组语句放在一个块中，一次性发送给服务器。
PL/SQL 引擎分析收到 PL/SQL 语句块中的内容，把其中的过程控制语句由 PL/SQL 引擎自身去执行,把 PL/SQL 块中的 SQL 语句交给服务器的 SQL 语句执行器执行。
PL/SQL 块发送给服务器后，先被编译然后执行，对于有名称的 PL/SQL 块（如子程序）可以单独编译，永久的存储在数据库中，随时准备执行。
PL/SQL 是一种块结构的语言，一个 PL/SQL 程序包含了一个或者多个逻辑块，逻辑块中可以声明变量，变量在使用之前必须先声明。
2.PL/SQL 特点
–与 SQL 紧密结合
–支持面向对象编程
–更好的性能
–可移植性
–安全性
3.语法结构
除了正常的执行程序外，PL/SQL 还提供了专门的异常处理部分进行异常处理
[DECLARE --declaration statements] ① BEGIN --executable statements ② [EXCEPTION --exception statements] ③ END;语法解析
① 声明部分：声明部分包含了变量和常量的定义。在此声明 PL/SQL 用到的变量,类型及游标，以及局部的存储过程和函数，
这个部分由关键字 DECLARE 开始，如果不声明变量或者常量，可以省略这部分。
② 执行部分：执行部分是 PL/SQL 块的指令部分，由关键字 BEGIN 开始，关键字 END 结尾。
所有的可执行 PL/SQL 语句都放在这一部分，该部分执行命令并操作变量。其他的 PL/SQL 块可以作为子块嵌套在该部分。
PL/SQL 块的执行部分是必选的。注意 END 关键字后面用分号结尾。
③ 异常处理部分：该部分是可选的，该部分用 EXCEPTION 关键字把可执行部分分成两个小部分，之前的程序是正常运行的程序，
一旦出现异常就跳转到异常部分执行。
4.PL/SQL 语句块的类型
1、匿名块
2、命名块
–①procedure 存储过程
–②function 函数
–③package 包
–④trigger 触发器
原本大家可能一提到 PL/SQL 就会想到 ORACLE，ORACLE 的 PL/SQL 很强大，它的匿名块调用以及有名块调用可以解决很多问题，在 MOGDB/openGauss 中，其实也有这样的功能，如下，是我针对 MOGDB/openGauss 匿名块的一些测试。
二、匿名块测试
1.普通匿名块调用
openGauss=# create table t1(a int ,b text); CREATE TABLE openGauss=# DECLARE openGauss-# PRAGMA AUTONOMOUS_TRANSACTION; openGauss-# BEGIN openGauss$# raise notice 'Normal anonymous block printing.'; openGauss$# insert into t1 values(1,'I am lmj!'); openGauss$# END; openGauss$# / NOTICE: Normal anonymous block printing. ANONYMOUS BLOCK EXECUTE openGauss=# select * from t1; a | b ---+----------- 1 | I am lmj! (1 row)2.匿名块和事务影响
启动一个事务后，执行一个自治事务匿名块，如果事务回滚，则匿名块不回滚。
openGauss=# truncate table t1; TRUNCATE TABLE openGauss=# START TRANSACTION; START TRANSACTION openGauss=# DECLARE openGauss-# PRAGMA AUTONOMOUS_TRANSACTION; openGauss-# BEGIN openGauss$# raise notice 'an autonomous transaction anonymous block.'; openGauss$# insert into t1 values(1,'it will commit!'); openGauss$# END; openGauss$# / NOTICE: an autonomous transaction anonymous block. ANONYMOUS BLOCK EXECUTE openGauss=# insert into t1 values(1,'you will rollback!'); INSERT 0 1 openGauss=# rollback; ROLLBACK openGauss=# select * from t1; a | b ---+----------------- 1 | it will commit! (1 row)3.外部匿名块和内部匿名块
其中外部匿名块是一个公共匿名块，而内部匿名块是一个自治事务匿名块，可以根据如下例子和第二个例子对比事务回滚和匿名块回滚
openGauss=# truncate table t1; TRUNCATE TABLE openGauss=# DECLARE openGauss-# BEGIN openGauss$# DECLARE openGauss$# PRAGMA AUTONOMOUS_TRANSACTION; openGauss$# BEGIN openGauss$# raise notice 'just use call.'; openGauss$# insert into t1 values(1,'can you rollback!'); openGauss$# END; openGauss$# insert into t1 values(2,'I will rollback!'); openGauss$# rollback; openGauss$# END; openGauss$# / NOTICE: just use call. ANONYMOUS BLOCK EXECUTE openGauss=# select * from t1; a | b ---+--- (0 rows)4.匿名块直接执行自治事务匿名块并引发异常
openGauss=# DECLARE openGauss-# PRAGMA AUTONOMOUS_TRANSACTION; openGauss-# res int := 0; openGauss-# res2 int := 1; openGauss-# BEGIN openGauss$# raise notice 'just use call.'; openGauss$# res2 = res2/res; openGauss$# END; openGauss$# / NOTICE: just use call. ERROR: ERROR: division by zero CONTEXT: PL/pgSQL function inline_code_block line 7 at assignment匿名块执行错误，会报出异常
5.异常捕获
在执行期间引发异常后，将捕获匿名块，如下所示，在执行错误后，抛出 autonomous throw exception 提示
openGauss=# DECLARE openGauss-# PRAGMA AUTONOMOUS_TRANSACTION; openGauss-# res int := 0; openGauss-# res2 int := 1; openGauss-# BEGIN openGauss$# raise notice 'error catch.'; openGauss$# res2 = res2/res; openGauss$# EXCEPTION openGauss$# WHEN division_by_zero THEN openGauss$# raise notice 'autonomous throw exception.'; openGauss$# END; openGauss$# / NOTICE: error catch. NOTICE: autonomous throw exception. ANONYMOUS BLOCK EXECUTE
