for循环取数据的时候,有时候会出现数据库“假死”的现象。请问有哪位大神能指点一下？？？？

在用“4GL”语言开发。其实只是一个很简单的明细生成汇总表.一个月也就只有2万条数据而已.取出两万条数据,然后根据不同的汇总条件生成一张月末汇总表.但是在foreache循环中.经常会出现读数据读不出来.然后整个页面就卡死在那里,后台也没看到有表被锁住.重新再打开界面依然能继续重新运行. 间歇性还提示:database not selected yet之类的。
代码如下:整体过程

PREPARE p101_prepare FROM g_sql

    IF STATUS THEN CALL cl_err('p101_pre',STATUS,1) EXIT PROGRAM END IF

    DECLARE p101_cs CURSOR WITH HOLD FOR p101_prepare    #SCROLL

    LET g_log = 'N'

    IF g_log = 'Y' THEN BEGIN WORK END IF

    CALL p101_get_total() #计算数据总量

    LET g_now = 1

    FOREACH p101_cs INTO g_slf.*      

       IF STATUS THEN

          CALL cl_err('p101(ckp#1):',SQLCA.sqlcode,1) LET g_success = 'N'

          EXIT FOREACH

       END IF     

       INITIALIZE g_kpg.* TO NULL      

       CALL p101_set_imd()         

       IF g_success='Y' THEN CALL p101_chk_01() END IF  #检查     

       IF g_exist='N' THEN         

         IF g_success='Y' THEN CALL  p101_ini_01() END IF             

         IF g_success='Y' THEN CALL  p101_calc()   END IF                

         IF g_success='Y' THEN CALL  p101_ins()    END IF             

       ELSE

         IF g_success='Y' THEN CALL  p101_calc2()  END IF               

         IF g_success='Y' THEN CALL  p101_upd()    END IF        

       END IF

       LET g_msg='TOTAL:',g_total,'-','NOW:',g_now,'-',g_slf.slf01,'-',g_slf.slf903      

       Message g_msg

       LET g_now = g_now + 1       

       IF g_success = 'N' THEN EXIT FOREACH END IF       

       #Message "FOREACH", g_msg       

    END FOREACH

   CLOSE p101_cs

检查过程:

FUNCTION p101_chk_01()

  DEFINE   l_azf01   LIKE azf_file.azf01

  DEFINE   l_cnt     SMALLINT  

  DEFINE   l_sql     char(400)

    LET  g_exist='N'

    LET  g_rowid=NULL

    DISPLAY g_slf.slf01,tm.yy,tm.mm,g_slf.slf903,g_slf.imd05,g_slf.slf902

    LET  l_sql="SELECT count(kpg01) FROM kpg_file",

               " WHERE kpg02='",g_slf.slf01 CLIPPED,"' AND kpg04=",tm.yy,

               " AND kpg05=",tm.mm," AND kpg15='",g_slf.slf903 CLIPPED,

               "' AND kpg16='",g_slf.imd05 CLIPPED,"' AND kpg17='",g_slf.slf902 CLIPPED,"'"

    DISPLAY l_sql

    PREPARE p101_prepare_cnt FROM l_sql 

    DECLARE p101_pro_cnt_cs CURSOR FOR p101_prepare_cnt

    OPEN p101_pro_cnt_cs

    FETCH p101_pro_cnt_cs INTO l_cnt

    CLOSE p101_pro_cnt_cs

       

    IF cl_null(l_cnt) THEN LET l_cnt=0            END IF

    IF l_cnt=0        THEN LET g_exist='N' RETURN END IF

    IF l_cnt<>1       THEN

       LET g_msg='p101_chk_01:',g_slf.slf01,'-',g_slf.slf903 USING '<<<<',

                 '-',g_plant CLIPPED,"(",l_cnt USING '<<<<',")"

       CALL cl_err(g_msg,SQLCA.SQLCODE,1)

       LET g_success='N'

       RETURN 

    END IF

    SELECT rowid,* INTO g_rowid,g_kpg.* FROM kpg_file 

       WHERE kpg02=g_slf.slf01 AND kpg04=tm.yy AND kpg05=tm.mm 

       AND kpg15=g_slf.slf903 AND kpg16=g_slf.imd05 AND kpg17=g_slf.slf902

    IF STATUS THEN 

       LET g_msg='p101_chk_01:',g_slf.slf01,'-',g_slf.slf903 USING '<<<<',

                 '-',g_plant CLIPPED,"(",l_cnt USING '<<<<',")"

       CALL cl_err(g_msg,SQLCA.SQLCODE,1)

       LET g_success='N'

       RETURN 

    END IF

    LET  g_exist='Y'

END FUNCTION