proc make_vuw {} {

	global base vuwf

	set vs ""
	set sqlcmd "select id, name, user_name(uid) from sysobjects where \
	type = 'V' order by name"
	set sqt sysobjects
	doSQL 1
	set vs ""
	while {1} {
		set line [sybNext 1]
		if {$line == ""} {break}
		lassign $line oi nam own
		lappend vs $oi
		set vnames($oi) $nam
		set vown($oi) $own
		set own
	}
	
	set lown dbo
	if {$vs == ""} {
		puts stderr "OUCH no views at all in $base"
		return vuw
	}

	foreach v $vs {

	set own $vown($v)
	set nam $vnames($v)

	puts $vuwf "drop view $nam\ngo\n"

	
	set txt ""
	set sqlcmd "select colid, text from dbo.syscomments where id  = $v \
	order by colid"
	doSQL 1
	while {1} {
		set line [sybNext 1]
		if {$line == ""} {break}
		lassign $line cid text
		append txt "$text"
	}

	set txt [string trimright $txt]

	if {$lown != $own} {
		puts $vuwf "setuser $own"
		set lown $own
	}

	puts $vuwf "$txt\n\ngo\n"

	}

	return vuw

}
	
