# $Header: /home/cvsroot/tcldb/wisql/Tlib/SYBforBidden,v 1.1 1996/12/06 07:34:02 de Exp ${DB}forBidden,v 1.1.1.1 1996/10/12 02:26:26 de Exp $
# tcl procs saved on Tue Sep 05 09:32:54 PDT 1995

proc SYBforBidden tbl {

	global dbpipe1 DB sybmsg server 


	set sqlcmd "select id from sysobjects where uid = 1 and name = 'forbidden'"
	set sqt sysobjects
        set res [doSQL 1]
        if {[lindex $res 0] == "ERROR"} {
		set id ""
	} else {
	set id [sybNext 1]
	}

	if {$id == ""} {
#		there is no forbidden fields table in this database
		return ""
	}

	set sqlcmd "select field from forbidden where tablename in ('any','$tbl')"
	set sqt "forbidden"
        set res [doSQL 1]
        if {[lindex $res 0] == "ERROR"} {
                set error "Error: line $sybmsg(line): $sybmsg(msgno) : $sybmsg(msgtext)"
                return $error
        } 

	set forf {}
        while {1 == 1} {

                if {$sybmsg(nextrow) == "NO_MORE_RESULTS"} {break}
                set row [sybNext 1]
		if {[lindex $row 0] == "ERROR"} {break}
		lappend forf $row
	}

	return $forf
	
}

