proc pgNext pghand {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/pgNext,v 1.3 1996/10/17 05:42:29 de Exp $

	global curs.$pghand pgmsg server

	set i [set curs.$pghand]
	set lim [expr [pg_result $pghand -numTuples] + 1]
	if {$i > $lim} {
		return ""
	}

	set geterr [catch {set value [pg_result $pghand -getTuple $i] } msg]

  	if {$geterr == 1} {
    		set value "ERROR : $msg"
		puts stderr "$value"
  	} 

	incr curs.$pghand

	return $value

}
