proc make_rul {} {

	global base rulf Tables Tnames

	set cids ""
	set sqlcmd "select constrid,tableid from sysconstraints order by constrid"
	set sqt sysconstraints
	doSQL 1
	while {1} {
		set line [sybNext 1]
		if {$line == ""} {break}
		lassign $line cid tid
		lappend cids $cid
		set tids($cid) $tid
	}

	set rids ""
	set sqlcmd "select id,name,user_name(uid) from sysobjects where type = 'R' order by name"
	doSQL 1
	while {1} {
		set line [sybNext 1]
                if {$line == ""} {break}
		lassign $line rid nam own
		set rnames($rid) $nam
		set owns($rid) $own
		lappend rids $rid
	}

	if {$rids == ""} {
		puts stderr "OUCH no rules in $base"
	}

	foreach r $rids {

	if {[lcontain $cids $r]} {
		set tn $Tnames($tids($r))
		puts $rulf "alter table $tn drop constraint $rnames($r)\ngo"
	} else {
		puts $rulf "drop rule $rnames($r)\ngo\n"
	}

	set sqlcmd "select colid, text from dbo.syscomments where id = $r \
        order by colid"

	doSQL 1

	set txt ""
	while {1} {
		set line [sybNext 1]
                if {$line == ""} {break}
		lassign $line cid text
		append txt $text
	}

	if {[lcontain $cids $r]} {
	puts $rulf "alter table $tn add constraint $rnames($r) ..."
	} else {
	puts $rulf "[string trimright $txt]\n\ngo\n"
	}

	}

	return rul

}
	
