//Database ORACLE
ls_environment = "Database"
SQLCA = CREATE transaction
SQLCA.DBMS = ProfileString(IniName, ls_environment, "DBMS", "")
SQLCA.ServerName = ProfileString(IniName, ls_environment, "ServerName", "")
SQLCA.LogId = ProfileString(IniName, ls_environment, "LogId", "")
SQLCA.LogPass = pwd
SQLCA.DBParm = ProfileString(IniName, ls_environment, "DBParm", "")
SQLCA.AutoCommit = False