Oracle database 23c 改进了 PL/SQL 程序中的简单 CASE 语句和 CASE 表达式，支持悬空谓词（dangling predicate）和单个 WHEN 分支中的多项匹配。这个增强是为了更加符合 SQL 标准。
示例表
本文将会使用以下简单示例表：
drop table if exists test;
create table test (
grade number
);
insert into test (grade)
values (-1), (50), (65), (75), (85), (95), (105);
commit;
已知问题
在 Oracle Database 21c 以及之前的版本中，简单 CASE 语句和表达式只能执行等值比较，非等值判断条件需要使用搜索 CASE 语句和表达式。例如：
set serveroutput on;
declare
l_level varchar2(20);
begin
for cur in (select grade from test) loop
case
when cur.grade >100 then l_level := '数据错误';
when cur.grade >= 90 then l_level := '优秀';
when cur.grade >= 80 then l_level := '良好';
when cur.grade >= 70 then l_level := '中等';
when cur.grade >= 60 then l_level := '及格';
when cur.grade >= 0 then l_level := '不及格';
else l_level := '数据错误';
end case;
dbms_output.put_line(cur.grade || '：' || l_level);
end loop;
end;
/
-1：数据错误
50：不及格
65：及格
75：中等
85：良好
95：优秀
105：数据错误
PL/SQL procedure successfully completed.
以上示例也可以通过搜索 CASE 表达式实现相同的结果：
set serveroutput on;
declare
l_level varchar2(20);
begin
for cur in (select grade from test) loop
l_level := case
when cur.grade >100 then '数据错误'
when cur.grade >= 90 then '优秀'
when cur.grade >= 80 then '良好'
when cur.grade >= 70 then '中等'
when cur.grade >= 60 then '及格'
when cur.grade >= 0 then '不及格'
else '数据错误'
end;
dbms_output.put_line(cur.grade || '：' || l_level);
end loop;
end;
/
-1：数据错误
50：不及格
65：及格
75：中等
85：良好
95：优秀
105：数据错误
PL/SQL procedure successfully completed.
悬空谓词
悬空谓词是指缺失左操作数的表达式，例如 > 0。Oracle 23c 引入了悬空谓词，我们可以通过简单 CASE 语句和简单 CASE 表达式实现复杂的分支判断条件。
以下示例使用简单 CASE 语句实现了与上文相同的结果：
set serveroutput on;
declare
l_level varchar2(20);
begin
for cur in (select grade from test) loop
case cur.grade
when >100 then l_level := '数据错误';
when >= 90 then l_level := '优秀';
when >= 80 then l_level := '良好';
when >= 70 then l_level := '中等';
when >= 60 then l_level := '及格';
when >= 0 then l_level := '不及格';
else l_level := '数据错误';
end case;
dbms_output.put_line(cur.grade || '：' || l_level);
end loop;
end;
/
-1：数据错误
50：不及格
65：及格
75：中等
85：良好
95：优秀
105：数据错误
PL/SQL procedure successfully completed.
简单 CASE 表达式实现相同结果的示例如下：
set serveroutput on;
declare
l_level varchar2(20);
begin
for cur in (select grade from test) loop
l_level := case cur.grade
when >100 then '数据错误'
when >= 90 then '优秀'
when >= 80 then '良好'
when >= 70 then '中等'
when >= 60 then '及格'
when >= 0 then '不及格'
else '数据错误'
end;
dbms_output.put_line(cur.grade || '：' || l_level);
end loop;
end;
/
-1：数据错误
50：不及格
65：及格
75：中等
85：良好
95：优秀
105：数据错误
PL/SQL procedure successfully completed.
单个 WHEN 分支中的多项匹配
新版本还增加了一个功能，单个 WHEN 子句中可以包含多个等值判断条件或者悬空谓词，使用逗号进行分隔。只要满足其中任何一个条件，就会执行相应的 THEN 分支语句或者返回对应的表达式结果。
以下示例使用简单 CASE 表达式进一步简化的判断条件：
set serveroutput on;
declare
l_level varchar2(20);
begin
for cur in (select grade from test) loop
case cur.grade
when >100, <0 then l_level := '数据错误';
when >= 90 then l_level := '优秀';
when >= 80 then l_level := '良好';
when >= 70 then l_level := '中等';
when >= 60 then l_level := '及格';
when >= 0 then l_level := '不及格';
end case;
dbms_output.put_line(cur.grade || '：' || l_level);
end loop;
end;
/
-1：数据错误
50：不及格
65：及格
75：中等
85：良好
95：优秀
105：数据错误
PL/SQL procedure successfully completed.
第一个 WHEN 分支包含了两个条件，大于 100 或者小于 0 的数据都会输出数据错误。
上面的示例也可以使用简单 CASE 表达式实现：
set serveroutput on;
declare
l_level varchar2(20);
begin
for cur in (select grade from test) loop
l_level := case cur.grade
when >100, <0 then '数据错误'
when >= 90 then '优秀'
when >= 80 then '良好'
when >= 70 then '中等'
when >= 60 then '及格'
when >= 0 then '不及格'
end;
dbms_output.put_line(cur.grade || '：' || l_level);
end loop;
end;
/
-1：数据错误
50：不及格
65：及格
75：中等
85：良好
95：优秀
105：数据错误
PL/SQL procedure successfully completed.
SQL 语句中的 CASE 表达式
目前，新版本增加的 CASE 表达式功能还不能在 SQL 语句中直接使用。
select grade,
case cur.grade
when >100, <0 then '数据错误'
when >= 90 then '优秀'
when >= 80 then '良好'
when >= 70 then '中等'
when >= 60 then '及格'
when >= 0 then '不及格'
end as grade
from test;
when >100, <0 then '数据错误'
*
ERROR at line 3:
ORA-02000: missing THEN keyword
我们可以利用 WITH 子句定义一个函数，在函数内使用新增的 CASE 表达式功能，然后在 SQL 查询中使用该函数：
with
function get_level(grade in number) return varchar2 is
begin
return case grade
when >100, <0 then '数据错误'
when >= 90 then '优秀'
when >= 80 then '良好'
when >= 70 then '中等'
when >= 60 then '及格'
when >= 0 then '不及格'
end;
end;
select grade, get_level(grade) as lvl
from test;
/
GRADE|LEVEL |
-----+-------+
-1|数据错误|
50|不及格 |
65|及格 |
75|中等 |
85|良好 |
95|优秀 |
105|数据错误|