DB2 における REVERSE 関数の実装

ORACLE

SQL> select reverse('1234') from dual;

REVERSE(
--------
4321

SQL> select reverse(12121) from dual;
select reverse(12121) from dual
              
1行目でエラーになりました。
ORA-00932: 不整合なデータ型：CHARでなければならないのにNUMBERになっている。

oracleのreverseの引数がchar型であり、戻り値もchar型であることを意味します。

SQL> select length(reverse('1234 ')) from dual;

長さ(reverse('1234'))
-----------------------
                      8

SQL> select reverse('1234 ') from dual;

reverse('1234')
----------------
    4321

戻り値の型が varchar の場合、長さが 4 であるため、戻り値は char になります。

sql serverを使用します。

逆関数の引数型は varchar または nvarchar で、戻り値の型も varchar または nvarchar です。

C:\&g;sqlcmd -S kermart -U sa -P sa -d master
1> select reverse('1234');
2>行く

----
4321

(1行の影響)
1> select reverse(1234); -- 実行計画から明らかなように、型変換が発生します。
2> 実行

------------
4321

(1行の影響)

オラクルをベースに、sql serverはリバース機能を内蔵しており、DB2もアプリケーションのシナリオによってはリバース機能を持たせるべきと考えます。

CREATE OR REPLACE FUNCTION REVERSE
(
 p1 varchar(200)
)
 RETURNS VARCHAR(200)
 SPECIFIC "REVERSE"
 LANGUAGE SQL
 DETERMINISTIC
 NO EXTERNAL ACTION
 READS SQL DATA
BEGIN

 declare v_str varchar(100) default '';
 DECLARE v_index INTEGER; -- Define subscript
 SET v_index = length(p1);
 WHILE(v_index >= 1) DO
  SET v_str = v_str||substr(p1,v_index,1);
  SET v_index = v_index - 1;
 END WHILE;
 return v_str;
END@

テストする

select reverse('123456') from dual;

654321

select reverse(1234) from dual; -- 実行計画を見てください、型変換があるのがわかるはずです。

4321