数据旋转及DB2递归的应用
前几天做一调查，需要下边这样的一个转换。
求一SQL--关于数据纵横转换的
假设表A中有以下数据
A1 1 01
A1 1 02
A1 1 03
A2 1 01
A2 2 01
A2 2 02
现希望一SQL能够查出下边这样的数据（暂时假设表A中第三列只有01-03这三种可能值）
A1 1 01-02-03
A2 1 01
A2 2 01-02
后来看过别人SQL后，我想出了这么一个笨招。
另外根据tanfufa的sql，我下午在回家的路上突然想到了一个方法，就是第三列虽然为几个字符串，但完全可以定义一种规则转成一些数字，譬如01我转成数字1,02转成数字2,03转成数字4,04的话转成数字8，依此类推。
然后group 求sum,根据sum值就可以推知是由哪几个字符串值组成的了。
但这种方法恐怕就是解析sum值这块需要花费过多的代码了。另外不知道db2中有无将十进制数字转成二进制的函数。
所以又试了我昨晚的想法，已经测试成功了。现放出其中这个最重要的函数，主要是实现二进制转换和解析这个二进制值。
CREATE FUNCTION DB2ADMIN.DEC(VAL_SUM INTEGER)
RETURNS VARCHAR(20)
LANGUAGE SQL
DETERMINISTIC
NO EXTERNAL ACTION
CONTAINS SQL
INHERIT SPECIAL REGISTERS
BEGIN ATOMIC
DECLARE @PARA INT;
DECLARE @DIV INT;
DECLARE @MOD INT;
DECLARE @BIN varchar(20);
DECLARE @RET varchar(30);
SET @BIN = '';
SET @RET = '';
SET @PARA = VAL_SUM;
SET @DIV =@PARA/2;
SET @MOD = MOD(@
WHILE @PARA <> 0 DO
SET @BIN = rtrim(ltrim(char(@MOD))) || rtrim(ltrim(@BIN));
SET @PARA = @PARA/2;
SET @DIV =@PARA/2;
SET @MOD = MOD(@
END WHILE;
SET @BIN = REPEAT('0',10 - length(@BIN)) || @BIN;
IF substr(@BIN,1,1) = '1' THEN
SET @RET = 'NW';
END IF;
IF substr(@BIN,2,1) = '1' THEN
SET @RET = @RET || '-' || 'RE';
END IF;
IF substr(@BIN,3,1) = '1' THEN
SET @RET = @RET || '-' || 'RB';
END IF;
IF substr(@BIN,4,1) = '1' THEN
SET @RET = @RET || '-' || 'RF';
END IF;
IF substr(@BIN,5,1) = '1' THEN
SET @RET = @RET || '-' || 'SV';
END IF;
IF substr(@BIN,6,1) = '1' THEN
SET @RET = @RET || '-' || 'NP';
END IF;
IF substr(@BIN,7,1) = '1' THEN
SET @RET = @RET || '-' || 'NC';
END IF;
IF substr(@BIN,8,1) = '1' THEN
SET @RET = @RET || '-' || 'CC';
END IF;
IF substr(@BIN,9,1) = '1' THEN
SET @RET = @RET || '-' || 'DC';
END IF;
IF substr(@BIN,10,1) = '1' THEN
SET @RET = @RET || '-' || 'AD';
END IF;
IF length(@RET) > 0 THEN
IF substr(@RET,1,1) = '-' THEN
SET @RET = substr(@RET,2);
END IF;
END IF;
RETURN rtrim(ltrim(@RET));
END
;
接着呢，我这块砖就引出了玉。呵呵。
关于db2递归的一个例子
ORACLE中大家可能对递归（在oracle中很多人称作家族树）已经很熟悉，因为ORACLE中的递归比较简单，也容易掌握！刚接触DB2的时候，也碰到过递归的问题，因为研究的人少所以刚接触的时候，对db2有一种神秘的感觉，db2是很强大的这个误用质疑！就sql而言，凡是oracle用sql能实现的，db2肯定或多或少也可以实现，只是逻辑复杂点！因为一直有人提问这边的问题，所以今天抽时间写了一点
首先，关于db2的递归的一点基础知识：
db2中的递归查询使用with来实现，也称为公共表达式，公共表达式在select语句的开始部分采用with子句的形式，在使用公共表达式的查询中可以多次使用它，并且公共表达式还可以通过取别名来连接到他本身，这样的话就可以达到循环的目的。
递归查询通常有3个部分需要定义：
一：一个公共表达式形式的虚拟表。
二：一个初始化表。
三：一个与虚拟表进行完全内连接的辅助表。
需要使用UNION all合并上边3个查询，然后用select从递归输出中得到最终的结果。
大体上如下形式
with XX(x1,x2,x3) as -------@0
(
select a.s,a.s1 from a ----@1
union all ----@2
select * from a,xx where a.s=xx.x1 ------@3
)
select ... from xx where .... -------@4
@0:为with体，即虚拟表
@1:为初始化表，这里需要定义初始化的一些行，也就是你递归的出发点，或者说父行，这部分逻辑只执行一次，它的结果作为虚拟表递归的初始化内容。
@2:这里必须用UNION all
@3:这里需要定义递归的条件（辅助表），这里定义递归的逻辑，需要注意的是父行和子行进行连接的时候逻辑一定要清楚父子关系，不然很容易变成死循环的，这里首先将初始化表的结果作为条件进行查询，在把执行的结果添加到虚拟表中，只要这里能查询出来记录，那么就会进行下一步递归循环。
@4:这里就是对虚拟表的查询语句。
关于关于递归更多的知识，可以到google中找更专业的资料，这里只讲我理解的一些东西。
这里举一个简单点的例子：
-------------------------------
Q：求一SQL--关于数据纵横转换的
假设表A中有以下数据
A1 1 01
A1 1 02
A1 1 03
A2 1 01
A2 2 01
A2 2 02
现希望一SQL能够查出下边这样的数据（暂时假设表A中第三列只有01-03这三种可能值）
A1 1 01-02-03
A2 1 01
A2 2 01-02
A：这个查询牵扯到全表的递归循环，用一般的sql语句很难搞定！
这是我刚写的一个递归语句！分享给大家看看！
因为懒，所以把建立测试表的逻辑也略去了，这里用with来生成上边的测试数据。
with t (t1,t2,t3) as (
values
('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'),
('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02')
)
select * from t;
测试一下：
C:\>db2 connect to dw
数据库连接信息
数据库服务器 = DB2/NT 8.2.0
SQL 授权标识 = DB2ADMIN
本地数据库别名 = DW
C:\>db2 with t (t1,t2,t3) as ( \
db2 (cont.) => values \
db2 (cont.) => ('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'), \
db2 (cont.) => ('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02') \
db2 (cont.) => ) \
db2 (cont.) => select * from t
T1 T2 T3
-- ----------- --
A1 1 01
A1 1 02
A1 1 03
A2 1 01
A2 2 01
A2 2 02
6 条记录已选择。
现在公布递归逻辑，sql如下：
with t (t1,t2,t3) as (
values
('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'),
('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02')
),
t1(t11,t22,t33,t44,t55) as (
select t1,t2,t3,rownumber() over(partition by t1,t2),rownumber() over(partition by t1,t2) as t4 from t
),
t3(s1,s2,s3,s4,s5) as(
select t11,t22,cast(t33 as varchar(100)),t44,t55 from t1 where T44 =1 and t55=1
union all
select a.s1,a.s2,cast(a.s3||'-'||b.t33 as varchar(100)),a.s4+1,a.s5 from t3 a,t1 b
where a.s1=b.t11 and a.s4 = b.t55-1)
select s1,s2,s3 from t3 x where x.s4=(select max(s4) from t3 y where x.s1=y.s1) order by s1,s2
;
测试一下：
C:\>db2 connect to dw
数据库连接信息
数据库服务器 = DB2/NT 8.2.0
SQL 授权标识 = DB2ADMIN
本地数据库别名 = DW
C:\>db2 with t (t1,t2,t3) as ( \
db2 (cont.) => values \
db2 (cont.) => ('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'), \
db2 (cont.) => ('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02') \
db2 (cont.) => ), \
db2 (cont.) => t1(t11,t22,t33,t44,t55) as ( \
db2 (cont.) => select t1,t2,t3,rownumber() over(partition by t1,t2),rownumber() over(partition by t1,t2) as t4 from t \
db2 (cont.) => ), \
db2 (cont.) => t3(s1,s2,s3,s4,s5) as( \
db2 (cont.) => select t11,t22,cast(t33 as varchar(100)),t44,t55 from t1 where T44 =1 and t55=1 \
db2 (cont.) => union all \
db2 (cont.) => select a.s1,a.s2,cast(a.s3||'-'||b.t33 as varchar(100)),a.s4+1,a.s5 from t3 a,t1 b \
db2 (cont.) => where a.s1=b.t11 and a.s4 = b.t55-1) \
db2 (cont.) => select s1,s2,s3 from t3 x where x.s4=(select max(s4) from t3 y where x.s1=y.s1) order by s1,s2
S1 S2 S3
-- ----------- ----------------------------------------------------------------------------------------------------
SQL0347W 递归公共表表达式 "DB2ADMIN.T3" 可能包含无限循环。 SQLSTATE=01605
A1 1 01-02-03
A2 1 01-02
A2 2 01-02
已选择 3 条记录，打印 1 条警告消息。
ok，搞定！
个人认为db2还是很强大的！大家一起学习！
上边的代码在逻辑可以了,还需要改改
with t (t1,t2,t3) as (
values
('A1', 1 ,'01'),('A1' ,1, '02'),('A1', 1, '03'),
('A2', 1, '01'),('A2', 2, '01'),('A2', 2 ,'02')
),
t1(t11,t22,t33,t44,t55) as (
select t1,t2,t3,rownumber() over(partition by t1,t2),rownumber() over(partition by t1,t2) as t4 from t
),
t3(s1,s2,s3,s4,s5) as(
select t11,t22,cast(t33 as varchar(100)),t44,t55 from t1 where T44 =1 and t55=1
union all
select a.s1,a.s2,cast(a.s3||'-'||b.t33 as varchar(100)),a.s4+1,a.s5 from t3 a,t1 b where a.s1=b.t11 and a.s2=b.t22 and a.s4 = b.t55-1
)
select s1,s2,s3 from t3 x where x.s4=(select max(s4) from t3 y where x.s1=y.s1 and x.s2=y.s2) order by s1,s2
;
------------------------------------
'A1' 1 '01-02-03'
'A2' 1 01
'A2' 2 '01-02'
这样才对!
