$! Shutdown de l'agent HyperSPI$agent
$!------------------------------------
$!
$ need_to_restart=f$edit(p1,"trim,upcase")
$ procnam = "HyperSPI++"
$ context = ""
$ temp = F$CONTEXT ("PROCESS", context, "PRCNAM", procnam, "EQL")
$ proc_id = F$PID(CONTEXT)
$ if proc_id .nes. ""
$    then
$        write sys$output "Arret agent HyperSPI++..."
$        stop/id='proc_id
$ endif
$ if need_to_restart .eqs. "RESTART"
$    then
$        @sys$startup:hyperspixx$startup.com
$ endif
$ exit