Ayuda con código para realizar conexión a servidor con base de datos en power builder

Es algo más o menos como te explico delante:
// Declaracion de variable global
transaction gtr_conexion1
transaction gtr_conexion2
// Evento donde deseas establecer la conexión, ej:ventana de login
gtr_conexion1 = CREATE transaction
gtr_conexion2 = CREATE transaction
// La primera conexione es contra ODBC
gtr_conexion1.DBMS = "ODBC"
gtr_conexion1.Database = bdatos1
gtr_conexion1.UserId = id
gtr_conexion1.DBPass = pass
gtr_conexion1.AutoCommit = True
gtr_conexion1.DBParm = "CommitOnDisconnect='No'"
Connect using gtr_conexion1;
IF gtr_conexion1.SqlCode = 0 THEN
Conexión exitosa
ELSE
Fallo la conexión
END IF
// La segunda conexión es contra Informix7
gtr_conexion1.DBMS = "IN7"
gtr_conexion1.Database = bdatos2
gtr_conexion1.UserId = id
gtr_conexion1.DBPass = pass
gtr_conexion1.AutoCommit = True
gtr_conexion1.DBParm = "CommitOnDisconnect='No'"
Connect using gtr_conexion1;
IF gtr_conexion2.SqlCode = 0 THEN
Conexión exitosa
ELSE
Fallo la conexión
END IF
Cada vez que hagas un select, update, insert, delete o lo que necesites de la base de datos debes escribir al final
USING gtr_conexion1 (gtr_conexion2 si es la otra la que necesitas).
Cuando en una ventana vas a usar un datawindow debes hacer:
Dw_1.SetTransObject(gtr_conexion1)