proc make_cfg {} {

	global base cfgf

	if {$base != "master"} {return}

	set sqlcmd "select v.name, config_value = c.value, run_value = cc.value from \
        master.dbo.spt_values v, master.dbo.sysconfigures c, master.dbo.syscurconfigs cc \
        where type = 'C' and number *= c.config and number *= cc.config and  \
        number >= 0 and c.config != 123"
	set sqt "spt_values sysconfigures syscurconfigures"

	doSQL 1

	while {1} {
		set line [sybNext 1]
		if {$line == ""} {break}
		lassign $line name cfgval runval
		set err [catch {expr $cfgval}]
		if $err {
		puts $cfgf "sp_configure \"$name\",  \"$cfgval\""
		} else {
		puts $cfgf "sp_configure \"$name\",  $cfgval"
		}
	}

	return cfg

}
	
