Getting programname for the SAS-program being executed

The code below will get the programname of the program being used.

%macro GetSASProgramName;
	%scan(%sysget(SAS_EXECFILEPATH),-1,"\");
%mend;
%let SASProgramName = %GetSASProgramName;

This will only work on Windows.