$stmt = $dbh->prepare("$sql17");
$stmt->execute();
if($DBI::errstr)
{
     warn "Execution of SQL failed: $DBI::errstr\n";
     $dbh->rollback;
     closeOracleConnection($dbh);
}
else
               
@rowData = $stmt->fetchrow_array();
                $rowcnt = $#rowData;
                for ($i = 0; $i < $rowcnt; $i++)  {
                       @rs = $stmt->fetchrow_hashref();
                        push(@retArray,@rs);
                }
$stmt->finish;
        if ($#retArray == -1) {
                print (stdout "\nCould not generate values\n");
                exit (-1);
        }