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

proc oraNext pipeno {

	global dbpipe$pipeno oramsg server

	set ora [eval set dbpipe$pipeno]

	set geterr [catch {set value [orafetch $ora]} ]

  	if {$geterr == 1} {
    		set value "ERROR : line $oramsg(rc): $oramsg(errortext)"
		echo $value
  	} 

	return $value

}

