proc queryDB sqlcmd {

	global pgHan pgCt DB table moreRec

	set sqt $table

	set moreRec 0

	case $DB in {
	{SYB} {
		set res [doSQL 1]
	}
	{PG} {
		lassign [pgSQL 1] pgCt pgHan res
#		puts stderr "queryDB res $res"
#		puts stderr "Got pgCt $pgCt pgHan $pgHan"
		if {[crange $res 0 3] == "WARN"} {
			set res "ERROR \"$res\""
		}
		if {$pgCt} {set moreRec 1}
	}
	{default} {
		puts stderr "Sorry, Oracle not yet supported."
	}
	}

	if {[lindex $res 0] == "ERROR"} {
		set moreRec 0
		return "$res"
	} else {
		set moreRec 1
		return "OK"
	}
}
