proc pgClose conno {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/pgClose,v 1.4 1996/12/06 07:31:29 de Exp $

        global pgmsg dbpipe$conno

        set dbconn [eval set dbpipe$conno]

        pg_disconnect $dbconn

}
