Hi Andrew, used previously - worked very well - check out:-
http://www.ase.com.au/ltxf.htm Logon Timeout eXtension Facility - MVS, OS/390, z/OS Australian Systems Engineering Pty. Ltd. Since 1980 we've made tools for users and managers of MVS, OS/390 and z/OS systems Regards Bruce On Fri, 14 Apr 2017 12:05:18 -0500, Andrew Metcalfe <[email protected]> wrote: >For reasons best left unspoken, I need to cause a TSO user’s screen to “lock” >after the SMF TWT time has expired. The user then has to re-authenticate by >supplying their RACF password. If they haven’t unlocked their screen after >another TWT interval I need the user to be terminated S522. > >The key driver is obviously the IEFUTL exit. However, I can’t “pause” the >process and have IEFUTL wait for the response, because I also want to grant an >extension to the already consumed wait time and then have the user cancelled >at the end of the extension period. This means running IEFUTL to conclusion in >order to grant the extension. >I have tried various approaches without complete success: > >- Attaching IKJEFT01 as a subtask of the program named in the logon >procedure and waiting on ECB posted by IEFUTL. Still pursuing this, just in a >mess with the protect key of the ECB which I can overcome. >- Multiple IEFUTL exits – 1st one to set the extension and 2nd one to >lock the screen. My testing implies that all the exits at SYSTSO.IEFUTL must >complete before the extension is honoured. > >Now considering the use of an SRB scheduled out of IEFUTL so that the IEFUTL >path completes and grants the extension. However it’s been a while since I >messed with SRB and I’m not sure I have the correct environment. More reading >required, but the SRB is another unit of work and therefore won’t have access >to SYSTSPRT and probably can’t issue TPUT/TGET anyway – I’ve not checked. > >I’ve read all I can find in the archives but nothing helps. > >Any pointers gratefully received. > >Thanks > >Andrew > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
