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

proc oraCancel pipeno {

        global dbpipe$pipeno oramsg 
        upvar sqt sqt

        set ora [eval set dbpipe$pipeno]

        set err [catch {oracancel $ora}]

        if {$err == 1} {
                echo "Error attempting oracancel on on pipe $pipeno"
		echo "ERROR $oramsg(rc): $oramsg(errortxt)"
        }

}

