XMA11.m

XMA11 ;(WASH ISC)/CAP/THM-Edit message info only ;04/17/2002  07:09

 ;;8.0;MailMan;;Jun 28, 2002

 ;

 ; Entry point (DBIA ?):

 ; INFO   Interactive change a message's 'information only' field.

INFO(DA) ; Change Information Only Status

 N DIE,DR

 S DIE=3.9,DR="1.97"

 D ^DIE

 Q 0

XMA11     ;(WASH ISC)/CAP/THM-Edit message info only ;04/17/2002  07:09

 +1       ;;8.0;MailMan;;Jun 28, 2002

 +2       ;

 +3       ; Entry point (DBIA ?):

 +4       ; INFO   Interactive change a message's 'information only' field.

INFO(DA)  ; Change Information Only Status

 +1        NEW DIE,DR

 +2        SET DIE=3.9

           SET DR="1.97"

 +3        DO ^DIE

 +4        QUIT 0