INGconn *INGconnectDB(char *dbname, char *user, char *passwd, int session_id)
{
/* # line 661 "myingres.sc" */
char *ingdbname;
char *ingdbuser = NULL;
char *ingdbpasswd = NULL;
int sess_id;
/* # line 666 "myingres.sc" */
INGconn *dbconn = NULL;
if (dbname == NULL || strlen(dbname) == 0) {
return NULL;
}
sess_id = session_id;
ingdbname = dbname;
/* # line 678 "myingres.sc" */ /* host code */
if (user != NULL) {
ingdbuser = user;
if (passwd != NULL) {
ingdbpasswd = passwd;
/* # line 682 "myingres.sc" */ /* connect */
{
IIsqInit(&sqlca);
IILQsidSessID(sess_id);
IIsqUser(ingdbuser);
IIsqConnect(0,ingdbname,(char *)"-dbms_password",ingdbpasswd,(char *)0,
(char *)0, (char *)0, (char *)0, (char *)0, (char *)0, (char *)0,
(char *)0, (char *)0, (char *)0, (char *)0);
if (sqlca.sqlcode < 0)
goto bail_out;
}
/* # line 687 "myingres.sc" */ /* host code */
} else {
/* # line 688 "myingres.sc" */ /* connect */
{
IIsqInit(&sqlca);
IILQsidSessID(sess_id);
IIsqUser(ingdbuser);
IIsqConnect(0,ingdbname,(char *)0, (char *)0, (char *)0, (char *)0,
(char *)0, (char *)0, (char *)0, (char *)0, (char *)0, (char *)0,
(char *)0, (char *)0, (char *)0);
if (sqlca.sqlcode < 0)
goto bail_out;
}
/* # line 692 "myingres.sc" */ /* host code */
}
} else {
/* # line 694 "myingres.sc" */ /* connect */
{
IIsqInit(&sqlca);
IILQsidSessID(sess_id);
IIsqConnect(0,ingdbname,(char *)0, (char *)0, (char *)0, (char *)0,
(char *)0, (char *)0, (char *)0, (char *)0, (char *)0, (char *)0,
(char *)0, (char *)0, (char *)0);
if (sqlca.sqlcode < 0)
goto bail_out;
}
/* # line 697 "myingres.sc" */ /* host code */
}
/* # line 701 "myingres.sc" */ /* host code */
dbconn = (INGconn *)malloc(sizeof(INGconn));
memset(dbconn, 0, sizeof(INGconn));
dbconn->dbname = bstrdup(ingdbname);
if (user != NULL) {
dbconn->user = bstrdup(ingdbuser);
dbconn->password = bstrdup(ingdbpasswd);
}
dbconn->session_id = sess_id;
dbconn->msg = (char *)malloc(257);
memset(dbconn->msg, 0, 257);
/*
* Switch to no default session for this thread undo default settings from SQL CONNECT.
*/
/* # line 716 "myingres.sc" */ /* set_sql */
{
IILQssSetSqlio(11,(short *)0,1,30,sizeof(-97),(void *)IILQint(-97));
}
/* # line 718 "myingres.sc" */ /* host code */
bail_out:
return dbconn;
}
void
IIpsqUser(char * usename)
{
IIsqUser(usename);
}
