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

proc oraClose pipeno {

        global  oramsg dbpipe$pipeno

        set dbpipe [eval set dbpipe$pipeno]

        oraclose $dbpipe

}

