$ 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