最近在用DB2 实实证明不开放的东西就是不好用。妈妈的

下面一个例子，留作以后当资料了

 

CREATE PROCEDURE P_MK_FactoryHours_login()
--营销_火电企业发电设备利用小时(月度)—数据初始化

     LANGUAGE SQL    
   p1:BEGIN
     DECLARE   SQLSTATE   CHAR(5);  
     DECLARE NOW_DATE VARCHAR(10);--当前日期
     DECLARE PLANT_ID VARCHAR(20);
     DECLARE PLANT_FMonthComplete DECIMAL(20,5);
     DECLARE PLANT_FYearComplete DECIMAL(20,5);
     DECLARE   sqlcode   INT   DEFAULT   0;
        
    
--"02000"就表示游标位置已经处于结果表最后一行之后    
     --DECLARE   not_found   CONDITION   FOR   SQLSTATE   '02000';
--开启宗产数据本月的游标    
     DECLARE c1 CURSOR FOR
  select substr(char(id),1,length(char(id))-2), M_USER_HOURS, USE_HOURS
  from PLANT_BRIEF
  where substr(char(TAB_YEAR),1,length(char(TAB_YEAR))-2) = substr(NOW_DATE,1,4)
  and substr(char(TAB_MONTH),1,length(char(TAB_MONTH))-2) = substr(NOW_DATE,6,2);    
     --DECLARE CONTINUE HANDLER FOR NOT FOUND
      --SET   at_end   =   -1;
   --SET at_end = 0;

 --取系统日期
     select (current date) into NOW_DATE
     from (select count(*) from   plant_tree) as a  
     fetch first 1 rows only;        
    
     open c1;
     ins_loop:  
        LOOP  
            FETCH   c1   INTO   PLANT_ID,   PLANT_FMonthComplete,   PLANT_FYearComplete; 
    --判断游标结束        
            IF sqlcode=100  THEN         
                LEAVE   ins_loop;
            END   IF;       
    --初始化数据      
            update T_MK_FactoryHours set FMonthComplete = PLANT_FMonthComplete ,FYearComplete = PLANT_FYearComplete
            where FDepNo = PLANT_ID and substr(FReportPeriod,1,7) = substr(NOW_DATE,1,7);
               
        END LOOP ins_loop; 
  CLOSE   c1;   
   END  p1
@