| 1 | XMRTCPGO ;(WASH ISC)/THM/CAP-Start XMRTCP ;02/19/98 14:32
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | JOB ;Job itself out for TCPQUE.COM to use for polling TCPFLAG'd sites
|
|---|
| 4 | ;
|
|---|
| 5 | ;XMRTCP must have VMS context
|
|---|
| 6 | ;The following code starts job w/o VMS context
|
|---|
| 7 | ;N % S %="MM-TCP-Poller" I $G(XMINST) S ^TMP("XMRTCP",0)=XMINST
|
|---|
| 8 | ;J POLL^XMRTCP:(NAME=%) Q
|
|---|
| 9 | ;
|
|---|
| 10 | ;Start job with VMS CONTEXT
|
|---|
| 11 | G START^XMRTCPGO
|
|---|
| 12 | Q
|
|---|
| 13 | START ;Start XMRTCP w/DCL context
|
|---|
| 14 | I $G(XMINST) S ^TMP("XMRTCP",0)=XMINST
|
|---|
| 15 | I ^%ZOSF("OS")["MSM" J POLL^XMRTCP Q
|
|---|
| 16 | D SPN("XMRTCP","POLL^XMRTCP")
|
|---|
| 17 | Q
|
|---|
| 18 | ;Spawn out from VMS / run w/DCL context
|
|---|
| 19 | SPN(X,Y) ;X=Filename right-hand side / Y=Entry point
|
|---|
| 20 | D DEL N % S F=X_".COM" O F:NEW U F S F=$ZIO
|
|---|
| 21 | W "$DSM/UCI="_$P($ZU(0),",")_"/ENVIRONMENT="_$$OPTION^%SYSUTL("ENVIRONMENT")_" "_Y,!
|
|---|
| 22 | S %="$run sys$system:loginout/input="_F_"/output=XMRTCP.log/detach/ast=300/buffer=40960/enqueu=300/file=99/io_buf=64/io_dir=64/job_tab=1024/maximum_work=1864/page=10240/queue_lim=10/work=900/subprocess=30/process=MM-TCP-Poller"
|
|---|
| 23 | C F S %=$ZC(%SPAWN,%) I 1
|
|---|
| 24 | Q
|
|---|
| 25 | DEL N %,X S X="DELER^XMRTCPGO",@^%ZOSF("TRAP")
|
|---|
| 26 | S %=$ZC(%SPAWN,"DELETE XMRTCP.COM.*")
|
|---|
| 27 | S %=$ZC(%SPAWN,"DELETE XMRTCP.LOG.*")
|
|---|
| 28 | DELER Q
|
|---|
