# $Header: /home/cvsroot/tcldb/ucodb/Tlib/sybCancel,v 1.1.1.1 1996/10/12 01:08:26 de Exp $
# tcl procs saved on Sun Sep 03 16:19:15 PDT 1995

proc sybCancel pipeno {

        global dbpipe$pipeno sybmsg 
        upvar sqt sqt


        set syb [eval set dbpipe$pipeno]


        set err [catch {sybcancel $syb}]

        if {$err == 1} {
                echo "Error attempting sybcancel on on pipe $pipeno"
		echo "ERROR $sybmsg(msgno): $sybmsg(msgtext)"
        }

}

