-- Date : 2006-12-14
create distinct type var_newtype
as decimal(5,2) with comparisons;
-- decimal(5,2) 实际的类型
drop distinct type var_newtype;
create type my_type as(
username varchar(20),
department integer,
salary decimal(10,2))
not final
mode db2sql;
-- 修改自定义结构数据类型,我目前还没有发现删除属性的方法.
alter type my_type
add attribute hiredate date;
drop type my_type;
-- 获取系统当前日期
select current date from sysibm.sysdummy1;
select current time from sysibm.sysdummy1;
select current timestamp from sysibm.sysdummy1;
--sysibm.sysdummy1表是一个特殊的内存中的表,用它可以发现如上面演示的 DB2 寄存器的值。您也可以使用关键字 VALUES 来对寄存器或表达式求值。
VALUES current date;
VALUES current time;
VALUES current timestamp;
union all
values 45;
union all
values 7,8,9,10,11,12
order by 1;
select distinct 234 from AnyOneTable;
select distinct 234 as 1 from AnyOneTable;
select distinct 'DB2变态级的SQL哈哈' from AnyOneTable;
select distinct 'DB2变态级的SQL哈哈' as 1 from AnyOneTable;
declare var1 char(2);
declare var2 int default 0;
set var2 =23;
declare d_cur integer;
values expr1, expr2, expr3 into a, b, c;
-- 相当于
set a = expr1;
set b = expr2;
set c = expr3;
when (name is not null) then name
when (namestr is not null) then namestr
else defaultname
end);
-- 相当于
set prodname = coalesce(name, namestr, defaultname);
--这个类似oracle的decode()和nvl()函数的合并.
-- 定义一个游标
declare cur1 cursor with return to client for select * from dm_hy;
declare cur2 cursor for select * from dm_hy; -- 静态游标
-- 创建数据表,并添加注释,插入数据.
CREATE TABLE tbr_catalog (
id bigint not null generated by default as identity,
type smallint not null,
name varchar(255),
parentid bigint,
cataloglevel bigint,
de script ion varchar(255),
PRIMARY KEY (id)
);
comment on table tbr_catalog is 'Birt报表目录表';
comment on column tbr_catalog.ID is '标识';
comment on column tbr_catalog.type is '目录类型';
comment on column tbr_catalog.name is '目录名称';
comment on column tbr_catalog.parentid is '目录父标识';
comment on column tbr_catalog.cataloglevel is '目录层次';
comment on column tbr_catalog.de script ion is '目录描述';
insert into tbr_catalog(id, type, name, parentid, cataloglevel, de script ion)
values (1, 0, '系统报表', 0, 0, '');
insert into tbr_catalog(id, type, name, parentid, cataloglevel, de script ion)
values (2, 1, '用户报表', 0, 0, '');
alter table tbr_storage
add constraint fk_tbr_storage
foreign key (catalogid)
references tbr_catalog(id);
alter table aaa add sex varchar(1);
-- 更改表,删除列
alter table aaa drop column sex;
rtrim(dm_hy.mc);
-- 定义临时表,通过已有person表来创建
declare global temporary table gbl_temp
like person
on commit delete rows --提交时删除数据
not logged -- 不在日志中纪录
in usr_tbsp -- 选用表空间
-- 此语句创建一个名为 gbl_temp 的用户临时表。定义此用户临时表 所使用的列的名称和说明与 person 的列的名称和说明完全相同。
-- 定义一个全局临时表tmp_hy
declare global temporary table session.tmp_hy
(
dm varchar(10),
mc varchar(10)
)
with replace -- 如果存在此临时表,则替换
not logged; -- 不在日志里纪录
insert into session.tmp_hy values('1','1');
insert into session.tmp_hy values('1','1');
insert into session.tmp_hy values('1','1');
from emp
where empno = '528671';
open cur1
fetch cur1 into t_equipid;
while(at_end<>1)do
......
set t_temp=0;
end while;
close cur1;
else
......
end if;
-- 外连接
from (emplyoee
left outer join project
on respemp=empon)
left outer join department
on mgrno=empno;
select * from book t
where t.name like '%J_编程%'
and t.code in('J565333','J565222');
create summary table sumy_stable1
as (select workdept,
count(*) as reccount,
sum(salary) as salary,
sum(bonus) as bonus
from employee group by workdept)
data initially deferred
refresh immediate;
-- (优化前) select语句中每行的过程层和数据流层之间都有一个上下文切换
declare cur1 cursor for col1,col2 from tab_comp;
open cur1;
fetch cur1 into v1,v2;
while SQLCODE<> 100 do
if (v1>20) then
insert into tab_sel values(20,v1);
else
insert into tab_sel values(v1,v2);
end if;
fetch cur1 into v1,v2;
end while;
declare cur1 cursor for col1,col2 from tab_comp;
open cur1;
fetch cur1 into v1,v2;
while SQLCODE<> 100 do
insert into tab_sel(select (case
when col1>20 then 20
else col1
end),
col2
from tab_comp);
fetch cur1 into v1,v2;
end while;
-- 列函数输入一组数据,输出单一结果。
-- 标量函数接收一个值,返回另外一个值。
-- 表函数只能用于SQL语句的from字句中,它返回一个表的列,类似于一个已创建的常规表。
-- 下面是个标量函数的例子。
create function (salary int,bonus_percent int)
returns int
language SQL contains SQL
return(
salary * bonus_percent/100
)
-- 下面是表函数
create function get_marks(begin_range int,end_range int)
returns table(cid candidate_id,
number test_id,
score score)
language SQL reads SQL DATA
return
select cid,number,score
from test_taken
where salary between (begin_range) and score(end_range)
returns double
language sql
contains sql
no external action
deterministic
return sin(x)/cos(x)
create function fromperson (p person)
returns row (name varchar(10), firstname varchar(10))
language sql
contains sql
no external action
deterministic
return values (p..name, p..firstname)
create function deptemployees (deptno char(3))
returns table (empno char(6),
lastname varchar(15),
firstname varchar(12))
language sql
reads sql data
no external action
deterministic
return
select empno, lastname, firstnme
from employee
where employee.workdept = deptemployees.deptno
returns varchar(4000)
deterministic no external action contains sql
begin atomic
declare revstr, reststr varchar(4000) default '';
declare len int;
if instr is null then
return null;
end if;
set (reststr, len) = (instr, length(instr));
while len > 0 do
set (revstr, reststr, len)
= (substr(reststr, 1, 1) concat revstr,
substr(reststr, 2, len - 1),
len - 1);
end while;
return revstr;
end
returns table (empno char(6),
lastname varchar(15),
firstname varchar(12))
language sql
modifies sql data
no external action
deterministic
begin atomic
insert into audit
values (user,
'table: employee prd: deptno = ' concat deptno);
return
select empno, lastname, firstnme
from employee
where employee.workdept = deptemployees.deptno
end
declare fullname char(40);
for vl as
select firstnme, midinit, lastname from employee
do
set fullname = lastname concat ','
concat firstnme concat ' ' concat midinit;
insert into tnames values (fullname);
end for
end
language sql
begin
declare v_counter integer;
declare v_firstnme varchar(12);
declare v_midinit char(1);
declare v_lastname varchar(15);
declare at_end smallint default 0;
declare not_found condition for sqlstate '02000';
declare c1 cursor for
select firstnme, midinit, lastname
from employee;
declare continue handler for not_found
set at_end = 1;
set v_counter = 0;
open c1;
fetch_loop:
loop
fetch c1 into v_firstnme, v_midinit, v_lastname;
if at_end <> 0 then leave fetch_loop;
end if;
set v_counter = v_counter + 1;
end loop fetch_loop;
set counter = v_counter;
close c1;
end
(in employee_number char(6), inout rating smallint)
language sql
begin
declare not_found condition for sqlstate '02000';
declare exit handler for not_found
set rating = -1;
if rating = 1
then update employee
set salary = salary * 1.10, bonus = 1000
where empno = employee_number;
elseif rating = 2
then update employee
set salary = salary * 1.05, bonus = 500
where empno = employee_number;
else update employee
set salary = salary * 1.03, bonus = 0
where empno = employee_number;
end if;
end
language sql
begin
declare v_counter integer default 0;
declare v_firstnme varchar(12);
declare v_midinit char(1);
declare v_lastname varchar(15);
declare c1 cursor for
select firstnme, midinit, lastname
from employee;
declare continue handler for not found
set counter = -1;
open c1;
fetch_loop:
loop
fetch c1 into v_firstnme, v_midinit, v_lastname;
if v_midinit = ' ' then
leave fetch_loop;
end if;
set v_counter = v_counter + 1;
end loop fetch_loop;
set counter = v_counter;
close c1;
end
...
goto fail
...
success: return 0
-- set变量 的用法
set new_var.salary = 10000, new_var.comm = new_var.salary;
or:
set (new_var.salary, new_var.comm) = (10000, new_var.salary);
set (new_var.salary, new_var.comm)
= (select avg(salary), avg(comm)
from employee e
where e.workdept = new_var.workdept);
-- whenever的用法
exec sql whenever sqlerror goto handlerr;
exec sql whenever sqlwarning continue;
exec sql whenever not found go to enddata;
-- while的用法
create procedure dept_median
(in deptnumber smallint, out mediansalary double)
language sql
begin
declare v_numrecords integer default 1;
declare v_counter integer default 0;
declare c1 cursor for
select cast(salary as double)
from staff
where dept = deptnumber
order by salary;
declare exit handler for not found
set mediansalary = 6666;
set mediansalary = 0;
select count(*) into v_numrecords
from staff
where dept = deptnumber;
open c1;
while v_counter < (v_numrecords / 2 + 1) do
fetch c1 into mediansalary;
set v_counter = v_counter + 1;
end while;
close c1;
end
-- set schema的用法
set schema rick
--create type (结构化的)用法 create type dept as
(dept name varchar(20),
max_emps int)
ref using int
mode db2sql
create type emp as
(name varchar(32),
serialnum int,
dept ref(dept),
salary decimal(10,2))
mode db2sql
create type mgr under emp as
(bonus decimal(10,2))
mode db2sql
create type address_t as
(street varchar(30),
number char(15),
city varchar(30),
state varchar(10))
not final
mode db2sql
method samezip (addr address_t)
returns integer
language sql
deterministic
contains sql
no external action,
method distance (address_t)
returns float
language c
deterministic
parameter style sql
no sql
no external action
create type germany_addr_t under address_t as
(family_name varchar(30))
not final
mode db2sql
create type us_addr_t under address_t as
(zip varchar(10))
not final
mode db2sql
create type project as
(proj_name varchar(20),
proj_id integer,
proj_mgr mgr,
proj_lead emp,
location addr_t,
avail_date date)
mode db2sql
-- create type mapping的用法
create type mapping my_oracle_date
from local type sysibm.date
to server type oracle
remote type date
create type mapping my_oracle_dec
from local type sysibm.decimal(10,2)
to server oracle1
remote type number([10..38],2)
create type mapping my_oracle_char
from local type sysibm.varchar()
to server oracle1
remote type char()
create type mapping my_oracle_dec
to local type sysibm.decimal(10,2)
from server oracle2
remote type number(10,2)
-- create user mapping的用法
create user mapping for rspalten
server server390
options
(remote_authid 'system',
remote_password 'manager')
create user mapping for marcr
server oracle1
options
(remote_password 'nzxczy')
-- case的用法
case v_workdept
when'a00'
then update department
set deptname = 'data access 1';
when 'b01'
then update department
set deptname = 'data access 2';
else update department
set deptname = 'data access 3';
end case
case
when v_workdept = 'a00'
then update department
set deptname = 'data access 1';
when v_workdept = 'b01'
then update department
set deptname = 'data access 2';
else update department
set deptname = 'data access 3';
end case
-- create trigger的用法
create trigger new_hired
after insert on employee
for each row
update company_stats set nbemp = nbemp + 1
create trigger former_emp
after delete on employee
for each row
update company_stats set nbemp = nbemp - 1
create trigger reorder
after update of on_hand, max_stocked on parts
referencing new as n
for each row
when (n.on_hand < 0.10 * n.max_stocked)
begin atomic
values(issue_ship_request(n.max_stocked - n.on_hand, n.partno));
end
create trigger raise_limit
after update of salary on employee
referencing new as n old as o
for each row
when (n.salary > 1.1 * o.salary)
signal sqlstate '75000' set message_text='salary increase>10%'
create trigger stock_status
no cascade before update of quote on currentquote
referencing new as newquote old as oldquote
for each row
begin atomic
set newquote.status =
case
when newquote.quote >
(select max(quote) from quotehistory
where symbol = newquote.symbol
and year(quote_timestamp) = year(current date) )
then 'high'
when newquote.quote < (select min(quote) from quotehistory
where symbol = newquote.symbol
and year(quote_timestamp) = year(current date) )
then 'low'
when newquote.quote > oldquote.quote
then 'rising'
when newquote.quote < oldquote.quote
then 'dropping'
when newquote.quote = oldquote.quote
then 'steady'
end;
end
create trigger record_history
after update of quote on currentquote
referencing new as newquote
for each row
begin atomic
insert into quotehistory
values (newquote.symbol, newquote.quote, current timestamp);
end
-- 带case查询条件语句
select (case b.organtypecode
when 'D' then
b.parent
when 'S' then
b.parent
else
b.id
end),
b.name
from A_ORGAN b
where b.id = 999
-- create tablespace 的用法
create tablespace payroll
managed by database
using (device'/dev/rhdisk6' 10000,
device '/dev/rhdisk7' 10000,
device '/dev/rhdisk8' 10000)
overhead 12.67
transferrate 0.18
create tablespace accounting
managed by system
using ('d:/acc_tbsp', 'e:/acc_tbsp', 'f:/acc_tbsp')
extentsize 64
prefetchsize 32
create tablespace plans
managed by database
using (device '/dev/rhdisk0' 10000, device '/dev/rn1hd01' 40000)
on dbpartitionnum (1)
using (device '/dev/rhdisk0' 10000, device '/dev/rn3hd03' 40000)
on dbpartitionnum (3)
using (device '/dev/rhdisk0' 10000, device '/dev/rn5hd05' 40000)
on dbpartitionnum (5)