Re: [Hardhats-members] CACHE TERMINAL CRASH

[Hardy, Don W.]

VistA logon (the ZU program) displays  "** TROUBLE ** - ** CALL IRM NOW! **", if the number of available jobs drops below 3. For those of us with small Cache licenses, this is a permanent condition, so you may decide to edit the ZU program to change the threshold.   Fix: Use Cache Explorer or Studio. Edit routine ZU, excerpt below.  In the line that begins with “JOBCHK I $$AVJ^%ZOSV()<3”, increase the value of 3 or as it states on the line comment out the entire line. Compile and save routine.   ZU ;SF/RWF - For Open M for NT and Cache! ;03/21/2002  13:46  ;;8.0;KERNEL;**34,94,118,162,170,225**;Jul 10, 1995  ;TIE ALL TERMINALS EXCEPT CONSOLE TO THIS ROUTINE! EN N $ES,$ETRAP S $ETRAP="D ERR^ZU Q"  D:+$G(^%ZTSCH("LOGRSRC")) LOGRSRC^%ZOSV("$LOGIN$")    ;The next line keeps sign-on users from taking the last slot  ;It can be commented out if not needed. JOBCHK I $$AVJ^%ZOSV()<3 W $C(7),!!,"** TROUBLE ** - ** CALL IRM NOW! **" G HALT    ;Only call ShareLic for Telnet connections.  I ($I["|TNT|")!($I["TNA") D SHARELIC^%ZOSV(0)  G ^XUS     DonH