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