MAIN
DEFINE lv_a CHAR(10)
OPEN SESSION s_id1 TO DATABASE test1
OPEN SESSION s_id2 TO DATABASE test2
USE SESSION s_id1 FOR SELECT USER INTO lv_a
FROM systables WHERE tabid=1
DISPLAY lv_a
USE SESSION s_id2 FOR SELECT USER INTO lv_a
FROM systables WHERE tabid=1
DISPLAY lv_a
SET SESSION s_id1
...
END MAIN