XMA1C.m

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

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