undef %db_processes;
$dbh = DBI->connect("dbi:ODBC:$dsn_name", "$dsn_user", "$dsn_pwd")
		or quittext_opc ("Failed to connect to database $dsn_name\n", $app, $SEV1, $GRP3, "5051", $STAT1);
	
$qry = "select sid,'|',serial#,'|',status,'|',process,'|',username,'|' from v\$session;";

$sth = $dbh->prepare($qry);
$sth->execute();
while ( @dummyrow = $sth->fetchrow_array ) 
	{
	($pp0,$pp1) = split /:/,$dummyrow[6];
	$db_processes{$pp1} = {SID => $dummyrow[0],
				SERIAL => $dummyrow[2],
				STATUS => $dummyrow[4],
				PROCESS	=> $dummyrow[6],
				USERNAME => $dummyrow[8],
				};
	}
foreach $hashy (@db_processes)
{
	print "in if\n";
	print "$hashy->[0]\n";
}

$dbh->disconnect();