Allows execution of code like :
main
define lv_c1, lv_c2 integer
define lv_a integer
CONNECT TO test AS con1 USER "aubit4gl" USING "somepassword"
delete from testtab
insert into testtab values("1234")
CONNECT TO test1 AS con2 USER "aubit4gl" USING "somepassword"
delete from testtab
use session con1 for select count(*) into lv_c1 from testtab;
use session con2 for select count(*) into lv_c2 from testtab;
display lv_c1
display lv_c2
use session con1 for declare c1 cursor for select * into lv_a from testtab
use session con1 for foreach c1
display "INSERTING : ", lv_a
use session con2 for insert into testtab values (lv_a)
end foreach
use session con1 for select count(*) into lv_c1 from testtab;
use session con2 for select count(*) into lv_c2 from testtab;
display lv_c1
display lv_c2
end main
