db2存储过程实例，原创

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 -于江西南昌农商行管理处