# $Header: /home/cvsroot/tcldb/ucodb/Tlib/doSQL,v 1.1.1.1 1996/10/12 01:08:25 de Exp $
# tcl procs saved on Sun Sep 03 16:18:48 PDT 1995

proc doSQL pipeno {

        global dbpipe$pipeno sybmsg 
        upvar sqlcmd sc
        upvar sqt sqt


        set syb [eval set dbpipe$pipeno]


	set result NO_DICE

        set err [catch {set result [sybsql $syb $sc]}]


        if {$err == 1} {
                echo "doSQL was trying to do the command \n$sc\n on pipe $pipeno
"
                echo "Failed to access table $sqt, tell your dba:"
		echo "ERROR $sybmsg(msgno): $sybmsg(msgtext)"
                set result "ERROR $sybmsg(msgno): $sybmsg(msgtext)"
        }


        return $result
}

