Actually, since PER and ACD are exclusive to each other one could also do
code:
IF '@HOMESHR'<>''
  USE H: @HOMESHR
ENDIF
SELECT
CASE INGROUP("PER")
  USE G: '\\server\PER$$'
CASE INGROUP("ACD")
  USE G: '\\server\ACD$$'
ENDSELECT
_________________________
There are two types of vessels, submarines and targets.