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