[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]
[0033]
[0034]
[0035]
[0036]

$!-----------------------------------------------------------------------------
$! HYPERSPI$AGENT.COM
$!
$! 20-MAY-2011  MGD  allow for WASD v10 environment
$! 21-AUG-1998  MGD  simplify, eliminating batch phase
$! 15-JUN-1995  MGD  initial development
$!-----------------------------------------------------------------------------
$!
$ SET NOON
$ IF F$TRNLNM("WASD_FILE_DEV") .NES. "" THEN @WASD_FILE_DEV
$!
$ IF P1 .EQS. "STARTUP"
$ THEN
$    LOG = "HT_LOGS:HYPERSPI_''F$GETSYI("NODENAME")'.LOG"
$    LOG = F$PARSE(LOG,,,,"NO_CONCEAL")
$    SET PROC /PRIVILEGE=ALL
$    RUN /DETACHED /AUTHORIZE SYS$SYSTEM:LOGINOUT -
         /PROCESS="HyperSPI$agent" -
         /INPUT=HT_ROOT:[SRC.HYPERSPI]HYPERSPI$AGENT.COM -
         /OUTPUT='LOG'
$    EXIT
$ ENDIF
$!
$!-----------------------------------------------------------------------------
$!
$ HYPERSPI$AGENT = "$HT_EXE:HYPERSPI$AGENT"
$! DEFINE /PROCESS HYPERSPI$DEBUG TRUE
$!
$ LOOP:
$    HYPERSPI$AGENT
$    IF $STATUS THEN EXIT
$    WAIT 00:01:00
$    GOTO LOOP
$ END_LOOP:
$!
$!-----------------------------------------------------------------------------