Download count: 6 this month, 5221 altogether.
Downloads for IDLEDISC:
  VMARC archive: v-3K

 
**********************  UNCLASSIFIED  **********************************
* :nick.IDLEDISC   :sec.UNCLASSIFIED                  :disk.IBMVMGAT
* :title.Disconnect VMID if there is no I/O for a specified period.
* :version.1.0     :date.94/11/07   :summary.PACKAGE  :support.AS
* :oname.C.W.Cheung                 :onode.TOROLAB6   :ouser.CHEUNGCW
* :aname.C.W.Cheung                 :anode.TOROLAB6   :auser.CHEUNGCW
* :hw.370 390                       :sw.CMS 5.6+ (370 or XA)
* :ops.VM/ESA                       :lang.ASM         :source.N
* :doc.Self expl.
* :kwd.IDLE DISC DISCONNECT TIMER TIME I/O VMID
* :abs.Disconnect VM if there is no I/O activity for a specified period.
*      Enhance the security of the using VMID just in case the terminal
*      is not attended.
* :lic.By placing material on this conference, I agree to grant
* IBM a non-exclusive, royalty-free license for the material
* as set forth in the LICENSE AGREEMNT file on this conference.
************************************************************************
* This small program loads itself. It sets a timer, if there is no I/O
* activity before the timer expires, the VM ID disconnects.
* Each I/O interrupt will reset the timer to start time out again.
* Syntax available by typing IDLEDISC alone.
* CMS must be running properly as a prerequisite.
* Under normal circumstances it should work if the applications
* running do not mess with the I/O and external interrupt PSW.
* But I cannot guarantee the result.
      IDLEDISC MODULE   *
      IDLEDISC LICENSE  *
*
* If you got a similar problem like this.
*
* >> DMSITP143T Operation exception occurred at 01470E in system routine
*    IDLEDISC.
* >> re-IPL CMS
* >> DMKDSP450W CP entered; disabled wait PSW '00020000 408282B0'
*
* It may be caused by you are running with ECMODE off.
*
* Fix:
* 1. Use DIRM OPT EC ON
*    You will be asked for your logon password.
*    To change the default ECMODE to ON permanently.
*    Logoff and logon again.
* 2. If you don't have DIRM installed, you may ask the systems
*    programmer to do this for you in the VM directory.
* 3. If that is not possible. Try this EXEC.
*  /* */
*  parse value diag(8,'CP Q SET') with . 'ECMODE' onoff '15'x .
*  if onoff='OFF'
*  then call diag 8,'CP SET EC ON '||'15'X||'CP I CMS PARM AUTOCR'
*
*  If this can cause an IPL . You can imbed this in your profile EXEC
*  and have it turn on ECMODE each time you IPL.
*