proc make_usr {} {

	global base UbyName UbyUID usrf

	set sqlcmd "select u.uid, m.suid, m.name, u.name, g.name from \
	dbo.sysusers u, dbo.sysusers g, master.dbo.syslogins m where \
        u.suid *= m.suid and u.gid *= g.uid and u.uid not in \
        (select lrid from sysroles) order by u.uid desc"

	set sqt "sysuser syslogins"
	set err [catch {set ret [doSQL 1]} res]
	if {$err} {
		set sqlcmd "select u.uid, m.suid, m.name, u.name, g.name from \
        	dbo.sysusers u, dbo.sysusers g, master.dbo.syslogins m where \
        	u.suid *= m.suid and u.gid *= g.uid and order by u.uid desc"
	}
	set err [catch {set ret [doSQL 1]} res]

	if {$err} {
		puts stderr "FATAL ERROR in make_usr, neither v4 nor v11 cmd works."
		return 1
	}

	while {1} {
		set line [sybNext 1]
		if {$line == ""} {break}
		lassign $line uid suid mname lname grp
		keylset UbyName($lname) mname $mname uid $uid suid $suid group $grp
		keylset UbyUID($uid) lname $lname mname $mname suid $suid group $grp
	}

	foreach u [lsort [array names UbyName]] {
	set mn [keylget UbyName($u) mname]
	set ug [keylget UbyName($u) group]
	if {($mn != "") && ($mn != "sa")} {
	puts $usrf "sp_adduser $mn, $u, $ug\ngo"
	}
	}

#
	return usr

}
	
