tuxedo中不采用XA连接oracle数据库的例子 （转自BEA网站）

int tpsvrinit(int argc,char** argv)
{
  EXEC SQL BEGIN DECLARE SECTION;
    VARCHAR username[20];
    VARCHAR password[20];
  EXEC SQL END DECLARE SECTION;
 
  strcpy(username.arr,"scott");
  username.len = strlne(username.arr);
  strcpy(password.arr,"tiger");
  password.len = strlen(password.arr);

EXEC SQL WHENEVER SQLERROR GOTO sqlerror;
  EXEC SQL CONNECT :username IDENTIFIED BY :password /* AT abc
USING :dbstring (if use dblink use it)*/;
sqlerror:
  EXEC SQL WHENEVER SQLERROR CONTINUE;
  userlog("tpsvrinit connect db sqlcode=[%d] err=[%
s]",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);

    return(0);
}

void tpsvrdone()
{
EXEC SQL COMMIT WORK RELEASE;
if(sqlca.sqlcode)
  userlog( " Close database failed sqlcode=[%d]",sqlca.sqlcode);
else
userlog( "tpsvrdone(): Shutdown server successful!" );

}