DB2存储过程实例(如果用惯了ORACLE会发现很不习惯)



CREATE OR REPLACE PROCEDURE LOY.TEST1 ( )
---此处忽略就行了，这个是db2自动为我们生成的
  SPECIFIC SQL180919100638350
  LANGUAGE SQL
  NOT DETERMINISTIC
  EXTERNAL ACTION
  MODIFIES SQL DATA
  CALLED ON NULL INPUT
  INHERIT SPECIAL REGISTERS
  OLD SAVEPOINT LEVEL
--创建存储过程
BEGIN
--以下是生成变量，其实没啥说的
DECLARE custNo VARCHAR(50);
DECLARE cardNo VARCHAR(50);
DECLARE mainFlag VARCHAR(50);
DECLARE mainCardNo VARCHAR(50);
DECLARE orgNo VARCHAR(50);
DECLARE acct_open_date VARCHAR(50);
DECLARE status VARCHAR(50);
DECLARE createDate VARCHAR(50);
DECLARE cardno_linshi VARCHAR(50);
DECLARE sql_linshi VARCHAR(100);
DECLARE stuInfor_end INTEGER  DEFAULT 0;
DECLARE num INTEGER  DEFAULT 0;
DECLARE sum INTEGER  DEFAULT 0;
DECLARE countSum INTEGER  DEFAULT 0;

----声明游标，此处加了关键之 with hold  
---这个关键词的含义是，出现了某条记录异常的时候游标继续执行，不加这个参数则游标会
---停止。但是亲测好像出了异常都会停止，该参数确实意义不大，不过你加上就行了。明白了----吗？
DECLARE stuInfor CURSOR with hold  FOR (
select 
SC_BIZ_DEPOSIT_PERSON.CST_ID as CUST_NO,
	CRD_AR_ID as CARD_NO,
	'' as MAIN_FLAG,
	'' as MAIN_CARD_NO,
	OPNG_OU_IP_ID as ORG_NO,
	EFC_DT as ACCT_OPEN_DATE,
	'' as status,
	'20180919' as create_date
	from SC_BIZ_DEPOSIT_PERSON  where length(CRD_AR_ID)!=0 
);
--这里到下面的ROLLBACK的end;  此处是固定模式（可以直接黏贴到你的存储过程中），意思是游标结束以后，设置我们的标志为1
--1，否则它一直是定义的时候的值为0.
DECLARE CONTINUE HANDLER FOR NOT FOUND
begin
SET stuInfor_end = 1;--
end;
DECLARE EXIT HANDLER FOR SQLEXCEPTION
begin
ROLLBACK;--
end;
---到上面这是固定模式

open stuInfor;--当定义完游标后，游标需要打开后使用
---打开游标设置到自己的变量中，这几个变量是自己定义的，也就是有几个字段，定义几个变---量，注意顺序不能改变
FETCH stuInfor  INTO  custNo,cardNo,mainFlag,mainCardNo,orgNo,acct_open_date,status,createDate;--
WHILE stuInfor_end = 0 DO
---fetch first 1 rows only是db2的函数，意思是取出第一条数据
---select into 意思是设置到查询的结果到变量中，注意此处必须返回一条数据。否则报错。
---存储过程报错直接就退出了，不会提示错误，明白吗？
   select count(1) into countSum  from DB_DEBIT_CARD 
				where card_No=cardNo fetch first 1 rows only;
    ---注意if then 和end if;为固定语法
    --if (条件) then
    --elseif(条件) then
    --else
    ---end if;
    if countSum=0  then
	 insert into DB_DEBIT_CARD ( CUST_NO, CARD_NO, 
      MAIN_FLAG, MAIN_CARD_NO, ORG_NO, 
      ACCT_OPEN_DATE, STATUS, CREATE_DATE 
      ) values (custNo,cardNo,mainFlag,mainCardNo,orgNo,acct_open_date,status,createDate);	
    end if;	
---每次要重新设置值，此处千万注意。
FETCH stuInfor  INTO  custNo,cardNo,mainFlag,mainCardNo,orgNo,acct_open_date,status,createDate;

----设置变量一定要用set,此处是坑
  set num=num+1;
  set sum= MOD(num,1000);
    if(sum=0) then 
      commit;
    end if;
END  WHILE;--
CLOSE stuInfor;--关闭游标
END;


使用习惯了oracle,突然来了db2还真有点不适应。

                                   20100920 -于江西南昌农商行管理处
DB2存储过程实例(如果用惯了ORACLE会发现很不习惯)

猜你喜欢
