diff --git a/user_task.com b/user_task.com
new file mode 100644
index 0000000000000000000000000000000000000000..9b8ce9ac0cb4ed51b38df0dc1544ccab2bd95670_dXNlcl90YXNrLmNvbQ==
--- /dev/null
+++ b/user_task.com
@@ -0,0 +1,35 @@
+$ TmpFile := sys$scratch:tmp_user_task.tmp
+$ pipe mcr ncl sho session control application * all > 'TmpFile'
+$ Open /Read /Error = NoFile fi 'TmpFile'
+$
+$Loop:
+$ Read /End = Fini fi Enr
+$ If f$element (4, " ", Enr) .nes. "Application" Then Goto Loop
+$ Task = f$element (5, " ", Enr)
+$
+$ImageTask:
+$ Read /End = Fini fi Enr
+$ Enr = f$edit (Enr ,"TRIM,COMPRESS")
+$ ImageName = f$edit (f$element (1, "=", Enr), "COLLAPSE")
+$ If f$element (0, " ", Enr) .nes. "Image" Then Goto ImageTask
+$ !ImageName = f$element (1, """", ImageName)
+$
+$UserTask:
+$ Read /End = Fini fi Enr
+$ Enr = f$edit (Enr ,"TRIM,COMPRESS")
+$ If f$element (0, " ", Enr) .nes. "User" Then Goto UerTask
+$ UserName = f$edit (f$element (1, "=", Enr), "COLLAPSE")
+$ If f$extract (0, 1, UserName) .nes. "<"
+$ Then
+$   UserName = f$element (1, """", UserName)
+$ EndIF
+$
+$ Write Sys$Output f$fao ("!AS,!AS,!AS", Task, UserName, ImageName)
+$
+$ Goto Loop
+$Fini:
+$ close/Disposition = Delete fi
+$ Exit 1
+$
+$NoFile:
+$ Exit 20