$ Cmd_STOP:
$   File    = F$Search("SYS$STARTUP:DESTA$SHUTDOWN.COM")
$   If File.nes.""
$   Then
$       Set Noon
$       @'File'
$       Set On
$   Endif
$!
$
$   Context = ""
$ Cmd_Stop_1:
$   thePid = F$PID(CONTEXT)
$   If (thePid.nes."")
$   Then
$       prcnam  = F$Getjpi(thePid,"PRCNAM")
$       If (Prcnam.eqs."DESTA Director") .or. (Prcnam.eqs."WCCProxy")
$       Then
$           Stop /Ident='thePID'
$       Endif
$       Goto Cmd_Stop_1
$   Endif