Kingbase实现Oracle decode函数功能

1. 问题

Kingbase如何实现Oracle的decode函数功能。

2. 文档概述

本文主要是通过调研Oracle的decode函数功能，然后基于kingbase自定义函数形式实现decode函数功能。

3. Oracle decode()函数功能调研

3.1. 函数名称/函数原型

decode(expr, search1, result1[,search2, result2]… [, default]);
复制

3.2. 函数功能

Decode函数的功能是用第一个参数expr和之后的偶数位值进行比较，如果相同则取偶数位+1的数值，否则取最后一位值，依次按照这个规则直到最后一个参数（如果最后一位为偶数位，则为null）。

3.3. 参数介绍

3.3.1. Expr

Expr被比较的字符串。

3.3.2. Search1

Search1表示第一期望值。

3.3.3. Result1

Result1表示如果被比较字符串expr与第一期望值search1相同，则输出result1的值。

3.3.4. Default

Default表示如果前面依次都比较结束都没有符合预期期望的值，则输出default作为最终结果。

3.4. 函数示例

3.4.1. 示例1： 

SQL> with xx as
(
 select 'M' sex
 union all
 select 'F' sex
 union all
 select 'X' sex
 union all
 select 'Z' sex
 union all
 select '' sex
)
select sex, decode(sex, 'M', '男', 'F', '女', decode(sex, 'X', '变性', '其它')) from xx;
SEX | DECODE
-----+--------
 M   | 男
 F   | 女
 X   | 变性
 Z   | 其它
     | 其它
(5 行记录)
复制

3.5. 基于Kingbase适配decode函数功能的实现

3.5.1. 实现decode(variadic p_decode_list text[])函数

create or replace function decode(variadic p_decode_list text[])
returns text
 as
$$
declare
 v_len integer := array_length(p_decode_list, 1);
 v_ret text;
begin

 if v_len >= 3 then
  for i in 2..(v_len - 1) loop
   v_ret := null;
   if mod(i, 2) = 0 then
    if p_decode_list[1] = p_decode_list[i] then
     v_ret := p_decode_list[i+1];
    elsif p_decode_list[1] <> p_decode_list[i] then
     if v_len = i + 2 and v_len > 3 then
      v_ret := p_decode_list[v_len];
     end if;
    end if;
   end if;
   exit when v_ret is not null;
  end loop;
 else
  raise exception 'UPG-00938: not enough args for function.';
 end if;
 return v_ret;
end;
$$
 language plpgsql;
复制

更多信息，参见https://help.kingbase.com.cn/