cics以XA方式访问多个oracle数据库的问题

mike79

在cics server端程序中要访问多个数据库，比如A和B。
通常PC程序中这样写：
EXEC SQL AT :DBA update......
EXEC SQL AT :DBB update......
DBA和DBB是在登录数据库时给与的名称，例如EXEC SQL Connect :username Identified by :password AT :DBA USING :sqlnetA;

采用了CICS之后，登录操作都是cics来执行的，只能通过xa_open字符串向cics传送有限的信息，那么我该怎样获得DBA和DBB？或者在cics中访问多个数据库是采用其他方法？（这是另一个问题，cics访问异构数据库，比如oracle和db2，都采用exec sql ......执行sql语句，oracle和db2的预编译器怎么知道这条exec sql语句应该是自己来编译，另一条exec sql语句是其他数据库的预编译器来编译？）

在一阶段提交的oracle1pc.pc中，提供了cics连接oracle的源代码，可以改造这个oracle1pc文件来实现连接和访问多个数据库。可是oraclexa_dyn.c中没有提供类似代码，想不通该怎么处理这种情况。