proc pgCancel pghand {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/pgCancel,v 1.3 1996/10/17 05:42:28 de Exp $

	global curs.$pghand

        upvar sqt sqt

        set err [catch {pg_result $pghand -clear}]
	catch {unset curs.$pghand}

        if {$err == 1} {
                echo "Error attempting pgclear on on handle $pghand"
        }

}
