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

proc oraCols pipeno {

	global dbpipe$pipeno oramsg server

	set ora [eval set dbpipe$pipeno]

	set cols [oracols $ora]

	return $cols

}

