db2中的循环语句。

1．利用得到的遊標在儲存過程中循環：

  

DECLARE CUR_FEESET CURSOR WITH RETURN TO CALLER FOR (
              SELECT
                     --
              FROM 表
              WHERE  条件
              );
       OPEN CUR_FEESET;--得到遊標
       --得到遊標記錄數
       SELECT
       count(CIF_CSTNO)
       into v_count
       FROM CB_CSTINF A ,CB_CSTBSNINF B
       WHERE A.CIF_STT<>'3' AND A.CIF_CSTNO = B.CBI_CSTNO ;   --
       FETCH CUR_FEESET INTO V_CSTNO,V_FEECODE,V_CSTLEVEL,V_FEEMODE;--
       WHILE V_COUNT>0 DO
　　　　 ……..
         FETCH CUR_FEESET INTO V_CSTNO,V_FEECODE,V_CSTLEVEL,V_FEEMODE;--
       END WHILE; --

 

２．另一種db2標準循環格式(leave、iterate 用法)：

    

SET V_COUNT = LENGTH(V_VALIDAUTHCOMBOS);--

SET V_INDEX = 0;--

AUTHLOOP:
LOOP
             IF V_INDEX >= V_COUNT THEN
                     LEAVE AUTHLOOP;--相當於break
             END IF;--
              ....
             SET V_INDEX = V_INDEX + 1;--
             .......
             IF 條件　THEN
                   ITERATE AUTHLOOP;-- 相當於continue
             END IF;--       
END LOOP;--

 

3.截取字符串的循环（设V_TEMP=‘CB1001|CB1002|CB1003|’）：

   

  SET V_LENGTH = LENGTH(V_TEMP);
   WHILE V_LENGTH>0 DO 
        SET V_POS = POSSTR(V_TEMP,'|');
        SET V_CURRENT_BSN = SUBSTR( V_TEMP, 1, V_POS-1 );
        SET V_TEMP = SUBSTR( V_TEMP, V_POS+1 );
        SET V_LENGTH = LENGTH(V_TEMP); 
        --最后一个字段，不再截取
        SET V_BSNTYPE = V_CURRENT_BSN;
   END WHILE;   

 

4.游標循環（不用open 游標）：

  

DROP PROCEDURE TESTFOR;
    CREATE PROCEDURE TESTFOR()
    LANGUAGE SQL
    BEGIN
         DECLARE V_TEMP1 VARCHAR(2);
         DECLARE V_TEMP2 VARCHAR(70);
         FOR V1 AS CURSOR1 CURSOR FOR
              SELECT STUDENT_ID AS TEMP1,STUDENT_NAME AS TEMP2 FROM STUDENT
         DO 
              DELETE FROM STUDENT WHERE STUDENT_ID = TEMP1;
              SET V_TEMP1 = TEMP1;
              SET V_TEMP2 = TEMP2;
         END FOR;
         COMMIT;
    END;