Index: /issm/branches/trunk-larour-GRL2017/src/m/os/sessionname.m
===================================================================
--- /issm/branches/trunk-larour-GRL2017/src/m/os/sessionname.m	(revision 21608)
+++ /issm/branches/trunk-larour-GRL2017/src/m/os/sessionname.m	(revision 21608)
@@ -0,0 +1,16 @@
+function name=sessionname()
+%SESSIONNAME - Get screen session name
+%
+%   Usage:
+%      name=sessionname()
+
+
+	[status,styname]=system('export | grep STY'); 
+
+	sessionname=styname(17:end-2);
+	if isempty(sessionname),
+		name='none';
+		return;
+	end
+	index=findstr(sessionname,'.');
+	name=sessionname(index+1:end);