INFORMIX 一定是支持动态的SQL语句看看下面的代码:
LET l_sql=" SELECT * FROM oik_file ",
" WHERE oik21='Y' AND ",
" ((oik06='RMB' AND oik09>oik091 ) OR ",
" (oik06<>'RMB' AND oik09f>oik15f and oik14f<>0 )) AND ",
tm.wc CLIPPED,
" AND oik03='",tm.year1 clipped,"'"
PREPARE anmp800_prepare1 FROM l_sql
IF SQLCA.sqlcode != 0 THEN
CALL cl_err('prepare:',SQLCA.sqlcode,1) EXIT PROGRAM
END IF
DECLARE anmp800_curs1 CURSOR WITH HOLD FOR anmp800_prepare1
FOREACH anmp800_curs1 INTO g_oik.*
IF SQLCA.sqlcode != 0 THEN
CALL cl_err('foreach:',SQLCA.sqlcode,1)
EXIT FOREACH
END IF
............
END FOREACH