my_current_user_email

	status.i4.v = my_current_user_email(email.i1a.r)

	This routine returns the email for the calling process'
	current user.

	email		returned null terminated user name
			(EMAIL_LEN + 1 characters)

	This function returns status values as follows:

	OK			success
	CLIB_GENERR		failed to determine the user name
	CLIB_CORRUPT		invalid stored information encountered

	This function requires the following include files:

	cnsparam_h, clib_h, acnet_errors_h

	Related functions:

	my_current_user_name, user_email_c, my_user_name,
	retrieve_validated_user_name, my_user_id

	C/C++ usage:

	char	email[EMAIL_LEN+1];
	int	status;

	status = my_current_user_email(email);