C
C **  REMP$ SUPPORT FILE, LIFE_DISTR:REMP$DEC.INC
C
C
C **  DECLARE VARIABLES FOR THIS FUNCTION.
C
	INTEGER*4	ISTAT, LENGTH, FIELD, VALUE, USR_CNTX
C
C **  DECLARE STRUCTURE OF MAIL CALLABLE INTERFACE BUFFERS
C
	STRUCTURE /MAIL_LIST/
	    UNION
	      MAP
		INTEGER*2	BUFFER_LEN
		INTEGER*2	ITEM_CODE
		INTEGER*4	BUFFER_ADR
		INTEGER*4	ADDR_LEN
	      END MAP
              MAP
		INTEGER*4	END_LIST
	      END MAP
	    END UNION
	END STRUCTURE
C
	INCLUDE '($MAILDEF)'
C