source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMRTCPGO.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1XMRTCPGO ;(WASH ISC)/THM/CAP-Start XMRTCP ;02/19/98 14:32
2 ;;8.0;MailMan;;Jun 28, 2002
3JOB ;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
13START ;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
19SPN(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
25DEL N %,X S X="DELER^XMRTCPGO",@^%ZOSF("TRAP")
26 S %=$ZC(%SPAWN,"DELETE XMRTCP.COM.*")
27 S %=$ZC(%SPAWN,"DELETE XMRTCP.LOG.*")
28DELER Q
Note: See TracBrowser for help on using the repository browser.