my $sql = qq|$strStoredProc $strArg|;

    if ($mydb->Sql($sql))
    {
        Win32::ODBC::DumpError();
    }
    if ($mydb->FetchRow())
    {
        %DataSet = $mydb->DataHash();
        $strResultValue = $DataSet{$strResultField};
    }
    else
    {
        writelog(info,"No row found for $strResultField");
        $mydb->Close();
    }
    $mydb->Close();