Power Builder - como crear un DSN con P.B. 7

como crear con una funcion o halgo, un Data Source Name,
NO un objeto de transaccion, sino un ODBC.
Te agradesco mucho.
hoy por ti manana por mi.

parte 1
// este código debe ir en el open de la aplicación está en dos partes
int li_respuesta
String ls_path
// Profile personal
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=personal;UID=dba;PWD=sql', MsgTerse = 'Yes'"

CONNECT USING SQLCA;
li_respuesta = sqlca.sqlcode // sie es que no existe el odbc devuelve un error -1

IF li_respuesta = -1 THEN // entonces crea el odbc
ls_path='HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\personal\' //path del registry
RegistrySet( ls_path,"AutoStop", RegString!,"YES")
RegistrySet( ls_path,"DatabaseFile", RegString!,"\\servidor\d\bdd\PERSONAL.DB") // ubicación de la base de datos
RegistrySet( ls_path,"CommLinks", RegString!,"TCPIP{}") // protocolo network que utilizas
RegistrySet( ls_path,"Description", RegString!,"personal") // nombre del odbc
RegistrySet( ls_path,"Driver", RegString!,"C:\personal\dbodbc6.dll") // driver de la base de datos, ten en cuenta que este archivo esté ubicado en la ruta que establezcas

parte 2
RegistrySet( ls_path,"Integrated", RegString!,"NO")
RegistrySet( ls_path,"EngineName", RegString!,"servicio1") // nombre del servicio de anywhere
RegistrySet( ls_path,"UID", RegString!,"dba")
RegistrySet( ls_path,"PWD", RegString!,"sql")

//vuelve a conectarse
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=personal;UID=dba;PWD=sql', MsgTerse = 'Yes'"
CONNECT USING SQLCA;
li_respuesta = sqlca.sqlcode
IF li_respuesta = -1 THEN // este error puede ser porque no están bien todos los parámetros del odbc
messagebox("ERROR","LLAME AL ADMINISTRADOR DEL SISTEMA",StopSign!)
RETURN
END IF
END IF
open(w_login_passw) // abres tu ventana de inicio
Cualquier inquietud no dudes en preguntar