parm g1 a1 v1
errclear
continue
build test.clengrp.!a1
if cierror <> 0
   echo building temp group
   veaudit copygroup pub.!a1,clengrp.=;onvs=!v1
else
   purge test.clengrp.!a1;yes
endif
continue
newgroup !g1.!a1;onvs=!v1
errclear
continue
altgroup !g1.!a1;homevs=!v1
if cierror <> 0
   copy @.!g1.!a1,=.clengrp.!a1
   purge @.!g1.!a1;yes
   altgroup !g1.!a1;homevs=!v1
   rename @.clengrp.!a1,=.!g1.=
   altfile @.!g1.!a1;creator=mgr
endif