//Show User List

/* This creates a dialog box that displays
the list of DOORS users alphabetically. */

DBE list1
string empty[] = {}
string g
int i=0, j=0, k=0
User user
Skip users=createString

DB window = create "DOORS User List"
list1 = list(window, "", 300, 10, empty)
realize window

for user in userList do{
  string uName = user.name
  put(users, uName, uName)
  j++
}
for g in users do{
  insert(list1,k,g)
  k++
}
delete users

show window