MAITSK.MAC;2/AU:90.=MAITSK.VGN;1
\
-1,1
-3,3
	.IDENT	/1.3X/
-28
; JGD16		J. DOWNWARD	29-JUL-79	IF CAN'T FIND UIC AS A MATCH TRY USING
;						THE ACCOUNT NUMBER AS THAT STAYS FIXED
;						IN THE UCB EVEN IF A SET /UIC CHANGES UIC.
;
;JGD22		J. DOWNWARD	25-NOV-81	CONDITIONALIZE TO REFLECT V4.0 CHANGE IN MULT 
;						CLI SUPPORT.
%
-/;-/,,/;JGD21/
	.MCALL	UCBDF$
	UCBDF$


	.IFDF M$$CLI!A$$CLI	; If multiple or alternate CLI support
U.ACN=U.CLI-4			; Offset from U.CLI word
	.IFF			;
U.ACN=U.LUIC-4			; Offset from L.UIC to find Acnt #
	.ENDC		; END MULTIPLE CLI SUPPORT
	.PSECT	MAIL$
 
-78,80,/; JGD16/
	CMP	U.LUIC(R1),BUF+4	; DID HE GET THE MAIL(LOGON UIC MATCHES)
	BEQ	22$			; GOT IT				
	TST	#ACCNUM			; SHOULD WE CHECK FURTHER(GLBDEF =1 IF YES)
	BEQ	23$			; IF NO MOST LIKELY RUN PRIV NOT BUILT IN
	TST	U.ACN(R1)		; IF ACCOUNT NUMBER=0 GIVE UP		
	BEQ	23$			; NO, MOST LIKELY RUN PRIVLEGES NOT BUILT IN
					; USER MAY NOT HAVE IMPLEMENTED ACCOUNT NUMBER
	CMP	U.ACN(R1),BUF+10	; DOES ACCOUNT NUMBER MATCH		
	BNE	23$			; IF NE, NO				
22$:					; REF LABLE				
/