database test {** * This is a test for a bug founded by Mike Aubury in 20/1/2003. * When is fixed, it should go to a BUG_TESTS to serve as a suite fro testing * old bugs in every connector and with every version. * * I can't seem to get declare/open to work when using a variable : * * Program stopped at 't_db.4gl', line number 11. * Error status number -400. * . * * It was found using the ESQL/C connector. *} main define a integer define lv_tabname char(20) let a=10 declare c1 cursor for select tabname from systables where tabid<a foreach c1 into lv_tabname display lv_tabname end foreach end main