.TITLE	MAILSUB - MACRO SUBROUTINES FOR MAIL PROCESS
	.IDENT	/01.00/
;
; ROUTINE TO RETURN THE USER NAME TO A FORTRAN MAINLINE ROUTINE
;
GET_NAME::
	.WORD	0
	MOVC3	#12,CTL$T_USERNAME,@4(AP)	;MOVE THE NAME
	RET
	.END