code:

---

$sLocation=SubStr(@WKSTA,1,5)
$sFunction=SubStr(@WKSTA,6,3)
   
$iScan=0	; Default is to not scan.
   
Select
Case $sLocation >= "S0002" AND $sLocation <= "S0598"
	Select
	Case $sFunction = "S01"
	Case $sFunction = "R01"
	Case $sFunction = "V01"
	Case $sFunction >= "H01" AND $sFunction <= "H10"
	Case $sFunction >= "N01" AND $sFunction <= "N24"
	Case "true"
		$iScan=1	; None of the above? Then scan
	EndSelect
Case $sLocation = "S0800"
	$iScan=1		; Scan all 0800 locations
Case $sLocation = "S0900"
	$iScan=0		; Don't scan 0900 locations
Case "true"
	$iScan=1		; Scan unknowns.
	"***WARNING*** Badly formed workstation name '" + @WKSTA + "'" + @CRLF
EndSelect
   
If $iScan
	;  *** YOUR SCANNING CODE HERE ***
EndIf

---