请问一下一个语句为什么会进入死循环

keymanlu

在一个forall的语句中：
  OPEN CUR_MEMBER_EXT_TMP;
  LOOP
    BEGIN
      FETCH CUR_MEMBER_EXT_TMP BULK COLLECT
        INTO V_ADA_ARRAY, V_DTE1_ARRAY, V_DTE2_ARRAY, V_DTE3_ARRAY, V_NUM1_ARRAY, V_NUM2_ARRAY, V_C1_ARRAY, V_C2_ARRAY LIMIT V_LIMIT_NUMBERS;
   
      IF V_ADA_ARRAY.COUNT = 0 THEN
        EXIT;
      END IF;
   
      FORALL i in V_ADA_ARRAY.FIRST .. V_ADA_ARRAY.LAST
        UPDATE MEMBER
           SET PIN_LVL_AFT_APR = GetQVSPinCode(V_ADA_ARRAY(i), V_GRADING_D);
      COMMIT;
    END;
  END LOOP;
  CLOSE CUR_MEMBER_EXT_TMP;


运行到update的部分，引用了一个函数GetQVSPinCode

我用plsql调试的时候，不断在这个函数中执行，而且传入的参数都是V_ADA_ARRAY(i)的第一个值，i的值没有增加，调试的过程就是不断在函数里面传入同一个值V_ADA_ARRAY(1),，return自然也是一样的。

我看了很久，都想不到为什么i不会增加，而且函数GetQVSPinCode为什么不退出来。恳请各位指点一下，谢谢。

GetQVSPinCode函数具体代码如下：

1. create or replace function GetQVSPinCode(V_ADA       in NUMBER,
   
2.                                          V_GRADING_D IN NUMBER) return CHAR as
   
3.   /*
   
4.    * 获取QVS审核职级
   
5.    * Author: cobe
   
6.    * Date:   20110526
   
7.   */
   
8. 
   
9.   V_PIN CHAR(1);
   
10. 
    
11.   --存放上一年度信息
    
12.   V_YEAR1    NUMBER(4);
    
13.   V_PIN1     CHAR(1);
    
14.   V_GRADING1 NUMBER(2);
    
15.   --存放本年度信息
    
16.   V_YEAR2    NUMBER(4);
    
17.   V_PIN2     CHAR(1);
    
18.   V_GRADING2 NUMBER(2);
    
19. 
    
20.   V_CNT NUMBER(1);
    
21. 
    
22.   TYPE rc IS REF CURSOR; --定义游标类型
    
23.   cur rc; --定义游标变量
    
24. 
    
25. begin
    
26.   V_PIN := NULL;
    
27.   V_CNT := 0;
    
28. 
    
29.   --查询最新两年数据
    
30.   OPEN CUR FOR 'SELECT A.FIS_YEAR,A.PIN,B.PIN_GRADING FROM (SELECT ADA, FIS_YEAR, PIN, ROWNUM IROW FROM QVS_AUDIT_DTL WHERE ADA=:ADA ORDER BY FIS_YEAR DESC) A,PIN_TABLE B WHERE A.IROW<3 AND A.PIN=B.PIN_CDE'
    
31.     USING V_ADA;
    
32.   LOOP
    
33.     FETCH cur
    
34.       INTO V_YEAR1, V_PIN1, V_GRADING1;
    
35.     EXIT WHEN cur%NOTFOUND;
    
36.   
    
37.     --若为第一条记录，则为最新年度信息，赋值到变量2中  
    
38.     V_CNT := V_CNT + 1;
    
39.     IF V_CNT = 1 THEN
    
40.       V_YEAR2    := V_YEAR1;
    
41.       V_PIN2     := V_PIN1;
    
42.       V_GRADING2 := V_GRADING1;
    
43.     END IF;
    
44.   END LOOP;
    
45.   CLOSE CUR;
    
46. 
    
47.   IF V_CNT = 1 THEN
    
48.     V_PIN := V_PIN2;
    
49.   ELSIF V_CNT = 2 THEN
    
50.     --若上一年职级为高级主任或以上，则取去年与今年较大职级
    
51.     IF V_GRADING1 >= V_GRADING_D AND V_GRADING1 > V_GRADING2 THEN
    
52.       V_PIN := V_PIN1;
    
53.     ELSE
    
54.       --否则取今年职级
    
55.       V_PIN := V_PIN2;
    
56.     END IF;
    
57.   END IF;
    
58. 
    
59.   return V_PIN;
    
60. exception
    
61.   when others then
    
62.     return null;
    
63. end;
    

复制代码