Und so geht’s:
Die Funktion CATX verkettet Zeichenketten, entfernt führende und nachfolgende Leerzeichen und fügt Trennzeichen ein.

data work.employee_email(keep=fullname firstname lastname);
length middle_initial first_initial $ 1;
set ia.employee_data;
first_initial= substr(firstname,1,1);
middle_initial = substr(scan(firstname,2,' '),1,1);
Fullname=catx('. ',first_initial,middle_initial,lastname);
run;