sub dbConnect(){
238    my ($dbName) = @_;
239    my ($dbh,$dbUser,$dbPass);
240    my $tempStr;
241
242    LogStatus "Retrieving $dbName login info";
243
244    $tempStr = `pwd`;
245    LogStatus "tempStr1: $tempStr";
246
247    $tempStr = `/prod/scripts/getDBlogin abc01`;
248    LogStatus "tempStr: $tempStr";
249    #($dbUser,$dbPass) = split(/\s/,`/prod/scripts/getDBlogin "$dbName"`);
250    ($dbUser,$dbPass) = split(/\s/, $tempStr);
251    LogStatus "User for $dbName is $dbUser";
252
253    die "$0: Could not find password for $dbUser" unless(defined($dbPass));
254
255    $dbh = DBI->connect("dbi:DB2:$dbName", $dbUser, $dbPass, {AutoCommit=> 0, RaiseError => 1})
256       || die "Can't connect to $database: $DBI::errstr";
257
258    LogStatus "Connected to $dbName as $dbUser";
259
260    return $dbh;
261 }