while GROUP($files,x)<>null
  vloadif(dpath|group($files,x)|".vws")
' message "$file is:"&str($files)
  progtag(fgi,bgi,dpath|group($files,x))
  order key rebuild
  if cerror
    message GROUP($files,x)|".vws - keys not rebuilt"
  end if
  vunloadif(group($files,x)|".vws")
  x = x + 1
end while