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

XMRUCX.m

Go to the documentation of this file.
  1. XMRUCX ;(WASH ISC)/THM/CAP-SMTP Receiver (RFC 821) for UCX ;03/25/2004 06:33
  1. ;;8.0;MailMan;**6,19,25,27,44**;Jun 28, 2002;Build 4
  1. ;
  1. ;Entry for Inet_servers interface RECEIVER
  1. ;SMTP service request invokes MailMan
  1. SOC25 ;
  1. ;S (XMRPORT,IO,IO(0))=%,X=$E(%_"-INETMM",1,15) D SETENV^%ZOSV
  1. ;I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D R^XMCTRAP Q"
  1. ;E S X="R^XMCTRAP",@^%ZOSF("TRAP")
  1. ;D DT^DICRW,DUZ^XUP(.5)
  1. ;S ER=0
  1. ;O IO:(SHARE) U IO
  1. ;S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
  1. ;D ENT^XMR
  1. ;;G HALT^XMRTCP
  1. ;Q
  1. SOC ;
  1. S (XMRPORT,IO,IO(0))="SYS$NET",X=$E(%_"INETMM",1,15) D SETENV^%ZOSV
  1. I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
  1. E S X="R^XMCTRAP",@^%ZOSF("TRAP")
  1. D DT^DICRW,DUZ^XUP(.5)
  1. S ER=0
  1. O IO:(TCPDEV):33 U IO
  1. S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
  1. D ENT^XMR
  1. ;G HALT^XMRTCP
  1. Q
  1. GTM2 ;Entry point for %ZISTCPS to GT.M
  1. ;The device has been open and setup in %ZISTCPS
  1. N $ETRAP,$ESTACK S $ETRAP="D ^%ZTER S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
  1. S XMRPORT=IO
  1. D SETNM^%ZOSV($E(IO_"INETMM",1,15)),COUNT^XUSCNT(1) ;Process counting under GT.M
  1. N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
  1. S ER=0,XMS0C=1
  1. U IO:(DELIMITER=$C(13))
  1. S XMCHAN="TCP/GTM" ;,XMNO220=""
  1. D ENT^XMR
  1. D COUNT^XUSCNT(-1) ;Check out GT.M counting
  1. Q
  1. STARTGTM ;Start the %ZISTCPS service
  1. D LISTEN^%ZISTCPS(25,"GTM2^XMRUCX")
  1. Q
  1. CACHEVMS ;Cache/VMS tcpip service and XINETD entry point
  1. N $ETRAP,$ESTACK,XMOS S $ETRAP="S ZZIO=$ZIO H 33 D R^XMCTRAP Q"
  1. ;CHECK OS WHEN SETTING IO VARIABLES XM*8*44 RRA
  1. S XMOS=$$OS^%ZOSV
  1. S (XMRPORT,IO,IO(0))=$S(XMOS["VMS":"SYS$NET",1:$P) D SETNM^%ZOSV($E("INETMM-"_$J,1,15))
  1. N DIQUIET S DIQUIET=1 D DT^DICRW,DUZ^XUP(.5)
  1. S ER=0,XMS0C=1
  1. O IO::33 U IO:(::"-M")
  1. S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
  1. D ENT^XMR
  1. Q