Better yet... for any version
break on
$RdvDom = "domain-test"
? "$$RdvDom = "+ $Rdvdom
$x = Instr($RdvDom,"-")
? "$$x =" + $x
If $x >0
? "$$x = " + $x
$Domain = substr($RdvDom,1,$x-1) + substr($RdvDom,$x+1,len($RdvDom))
? "$$Domain = " + $Domain
;goto $Domain
Endif
get $_
exit 1
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.
