XMA1C ;ISC-SF/GMB-Server Basket APIs ;04/17/2002 07:10
;;8.0;MailMan;;Jun 28, 2002
; Was (WASH ISC)/ACC/IHS
;
; Entry points (DBIA 10072):
; REMSBMSG Remove a message from a server basket
; SETSB Put a message in a server basket
;
SETSB ; Put a message in a server basket
; (Create mail basket for server under postmaster as needed)
; In:
; XMXX Server Name (full name, starting with 'S.')
; XMZ Message Number
;Messages to server are saved in a mail basket of the
;Postmaster much like transmission queues. But while
;Domain queues point at the domain file (domain#+1000),
;Server baskets point at the option file (option#+10000).
D PUTSERV^XMXMSGS1(XMXX,XMZ)
Q
REMSBMSG ; Remove a message from a server basket
; In:
; XMSER Server Name (full name, starting with 'S.')
; XMZ Message number
D ZAPSERV^XMXMSGS1(XMSER,XMZ)
K XMKD,XMZ,XMDUZ,XMK,XMSER
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMA1C 913 printed Dec 13, 2024@02:10:47 Page 2
XMA1C ;ISC-SF/GMB-Server Basket APIs ;04/17/2002 07:10
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ; Was (WASH ISC)/ACC/IHS
+3 ;
+4 ; Entry points (DBIA 10072):
+5 ; REMSBMSG Remove a message from a server basket
+6 ; SETSB Put a message in a server basket
+7 ;
SETSB ; Put a message in a server basket
+1 ; (Create mail basket for server under postmaster as needed)
+2 ; In:
+3 ; XMXX Server Name (full name, starting with 'S.')
+4 ; XMZ Message Number
+5 ;Messages to server are saved in a mail basket of the
+6 ;Postmaster much like transmission queues. But while
+7 ;Domain queues point at the domain file (domain#+1000),
+8 ;Server baskets point at the option file (option#+10000).
+9 DO PUTSERV^XMXMSGS1(XMXX,XMZ)
+10 QUIT
REMSBMSG ; Remove a message from a server basket
+1 ; In:
+2 ; XMSER Server Name (full name, starting with 'S.')
+3 ; XMZ Message number
+4 DO ZAPSERV^XMXMSGS1(XMSER,XMZ)
+5 KILL XMKD,XMZ,XMDUZ,XMK,XMSER
+6 QUIT
