Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMC11

XMC11.m

Go to the documentation of this file.
  1. XMC11 ;(WASH ISC)/THM-DECNET Communications Protocol Tools ;04/17/2002 07:51
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. Q
  1. ;ENS and ENR are used by DECNET Communications Protocol in file 3.4
  1. ENS ;Send
  1. I $G(XMINST) D XMTSTAT^XMTDR(XMINST,"S",XMSG)
  1. Q
  1. ENR ;Receive
  1. I $G(XMINST) D XMTSTAT^XMTDR(XMINST,"R",XMRG)
  1. Q
  1. ; *** THE FOLLOWING ARE NOT USED ***
  1. IMM ;Immediate mode interpreter
  1. S XMC("SHOW TRAN")="RS"
  1. I $G(XMC("AUDIT")) K ^TMP("XMC",XMC("AUDIT")),XMC("AUDIT","I")
  1. F R !!,"Script command: ",X:DTIME Q:X="" D INT^XMC1(X,"you entered") U IO(0) W " ",$S(ER:"Failed",1:"OK")
  1. Q
  1. CHRS ;Christening operation
  1. N XMINST,XMSITE,DIC,X,Y,DIR
  1. I '$D(^XMB("NETNAME")) D Q
  1. . W !!,$C(7),"This domain is not yet christened. It cannot christen others"
  1. . W !,"until initialized and christened by a parent domain."
  1. W !!,"This process will create a new subordinate domain to this domain"
  1. W !,"and update network relationships both there and here, as well as"
  1. W !,"inform this domain's parent."
  1. W !!,"Do you really want to do this? NO// "
  1. R X:DTIME Q:"Yy"'[$S($L(X):$E(X),1:1)
  1. C W !!!,"Enter the name of the subordinate domain which you wish to christen"
  1. S DIC=4.2,DIC(0)="AEQMZ"
  1. D ^DIC Q:Y<0
  1. S XMINST=+Y,XMSITE=$P(Y,U,2)
  1. S XMC("CHRISTEN")=^XMB("NETNAME")_","_XMSITE
  1. S XM="D"
  1. D ENT^XMC1
  1. K XMC("CHRISTEN")
  1. Q