# $Header: /home/cvsroot/tcldb/ucodb/Tlib/oraSQL,v 1.1.1.1 1996/10/12 01:08:26 de Exp $

proc oraSQL pipeno {

        global dbpipe$pipeno oramsg 
        upvar sqlcmd sc
        upvar sqt sqt

#	echo "doing oraSQL on dbpipe$pipeno set ora var"
        set ora [eval set dbpipe$pipeno]
#	echo "got pipe name $ora for number $pipeno"

	set result NO_DICE

#	echo "let's now do orasql statement orasql $ora $sc"
        set err [catch {set result [orasql $ora $sc]}]

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

        return $result
}

