parm group_name

##  volname.xeq - sets _gvolset to the name of the home
##                volume set for the group_name parm.
##  Chris Bartram - 3K Associates

build xtempgn;rec=-80;disc=50;msg;temp
file xtempgn,oldtemp
listgroup !group_name > *xtempgn
setvar _found false
while not !_found do
  input _gvolset < *xtempgn
  setvar _gvolset ups(rtrim(ltrim('!_gvolset')))
  if lft('!_gvolset',12)='HOME VOL SET' then
    setvar _found true
  endif
endwhile
setvar _gvolset &
  ltrim(rht('!_gvolset',len('!_gvolset')-pos(':','!_gvolset')))
purge xtempgn,temp
reset xtempgn
deletevar _found
showvar _gvolset