# $Header: /home/cvsroot/tcldb/ucodb/Tlib/sybNext,v 1.1.1.1 1996/10/12 01:08:25 de Exp $
# tcl procs saved on Sun Sep 03 16:18:47 PDT 1995

proc sybNext pipeno {

	global dbpipe$pipeno sybmsg server

	set syb [eval set dbpipe$pipeno]

	set geterr [ catch {set value [sybnext $syb]} ]

  	if {$geterr == 1} {
    		set value "ERROR : line $sybmsg(line): $sybmsg(msgno) : $sybmsg(msgtext)"
		echo $value
  	} 

	return $value

}

