27 lines
887 B
Mathematica
27 lines
887 B
Mathematica
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
|