在4gl中CURSOR可以说是每一个程序中都会有的,而CURSOR又分为三种SCROLLING CURSOR、Non-SCROLLING CURSOR、LOCKING CURSOR。
Non-SCROLLING CURSOR的聲明有兩種,一種是先定義好sql語句到一個變量里:
DECLARE cursor名 CURSOR FROM 變量
另一種是直接將sql語句寫在CURSOR聲明裡面:
DECLARE cursor名 CURSOR FOR SQL語句
抓取資料:FOREACH cursor名 INTO 變量或者集合或者數組
在循環內可用的控制 [CONTINUE FOREACH][EXIT FOREACH]
END FOREACH
Non-SCROLLING CURSOR抓取到的資料,是放在一個數組內的,因為抓取到的資料是一次一筆資料。每抓取一筆后,再抓第二筆時,由於數組可以定義成二維數組,所以能夠接受到所有資料。
如果是將資料放在變量或者集合內,那麼每次抓取到的資料都會覆蓋掉變量或集合內的值,這種情況只能在循環里將資料取出,否則只會保留最後一筆資料。
總的來說,Non-SCRCOLLING CURSOR的循環類似FOR循環。
以下為廢話
Non-SCROLLING CURSOR通常出現在雙檔控制程序或者報表程序裡面,抓取資料時,可以按次序,一次一筆資料抓取,直到強制終止或全部抓取完畢。Non-SCROLLING CURSOR的循環體為(FOREACH 循環體 END FOREACH),循環體中,常見的都是一些對SQL語句的執行情況的判斷:有判斷SQLCA.SQLCODE、STATUS的值的,還有這種少見的
DECLARE p111_chkdate CURSOR WITH HOLD FOR p111_prechk
LET l_flag='N'
FOREACH p111_chkdate INTO l_yy,l_mm
LET l_flag='Y' EXIT FOREACH
END FOREACH
IF l_falg = 'Y' THEN
CALL cl_err('err: ' , ' 報錯代碼 ',1) RETURN
END IF
循環體內看出,只抓了一筆資料就設定了變量值,然後退出循環,通過檢查設定的值,產生報錯信息,并退出這段控制。那麼這個CURSOR的意思是從數據庫中抓取資料,若抓出了資料,就報錯,感覺上有點多此一舉。
后腦子抽風,猜想起如果CURSOR沒有抓取到資料,就是說sql語句抓取不到資料,而控制段里面又是用的這種寫法,那麼,循環會執行嗎?
於是:
DATABASE ds
MAIN
DEFINE l_sql VARCHAR(500)
DEFINE l_zz01 LIKE zz_file.zz01
DEFINE l_zz04 LIKE zz_file.zz04
DEFINE l_flag VARCHAR(2)
DEFINE l_cnt INTEGER
DEFINE l_count INTEGER
LET l_cnt = 1
LET l_flag = 'N'
select count(*) INTO l_count from zz_file where zz06='2'
LET l_sql=" SELECT zz01,zz04 ",
" FROM zz_file ",
" WHERE zz06='99' ",
" ORDER BY 1 desc " #這條語句沒有資料抓取
PREPARE zz_sql FROM l_sql
DECLARE zz_cur CURSOR WITH HOLD FOR zz_sql
FOREACH zz_cur INTO l_zz01,l_zz04
LET l_flag='Y'
LET l_cnt=l_cnt+1
#DISPLAY l_zz01
EXIT FOREACH
END FOREACH
DISPLAY l_count #123
DISPLAY l_cnt #1
DISPLAY l_flag #N
DISPLAY l_zz01 #空
DISPLAY l_zz04 #空
END MAIN
然後去編譯執行,果然,沒有抓取到資料,是不會執行循環體的;果然每個人有每個人的寫法,但這種有資料就報錯的就沒有必要用cursor來寫了。