| I'm a member of Italian EUS team and we have experienced the same problem:
1. Users via SET HOST who log out from terminal servers
2. Users connaect via LAT and kicked out from terminal servers
When this happen issuing the command SH TERM xxx , VMS display the
message :
Device OFF line or out of configuration.
It seems that when these users are in HOT SCREEN or a CRTFORM and
the connection is lost the FOCUS i/o terminal handling go crazy.
We have implemented a simple workaround checking the status of each
terminal every 20 minutes via the lexical F$GETDVI("xxx","DEVSTS");
If the returned value is 9 then a reply warns the SUPPORT specialist
to check that user/terminal.
Any other solution which can avoid the problem is really WELCOME !
Best regards
Luca
|
| Hi Daya,
i did a workaround which run in a batch /RESTART priveleged process :
It checks the terminal status to identify if it's into the 'disconnect' status.
it's running on our systems (ALL-IN-1 has the same problem sometimes) and it
works fine with low CPU load.
Obviously you can trim it as you like.
Ciao
$!
$ ON ERROR THEN EXIT
$!
$ SET NOON
$ PURGE/KEEP=3 SYS$LOGIN:CK_TERM.LOG
$ SET ON
$!
$ SET NOVERIFY
$!
$ SET PROC/PRIV=ALL/PRIO=4 ! to run well
$!
$WLOOP:
$!
$ SET NOON
$ SET PROT=O=REWD SYS$LOGIN:CK_TERM.LIS;*
$ DELETE/NOCONFIRM SYS$LOGIN:CK_TERM.LIS;*
$ SET ON
$!
$ SHOW USER /OUT=SYS$LOGIN:CK_TERM.LIS
$!
$ OPEN IN_F SYS$LOGIN:CK_TERM.LIS
$!
$ READ/END=FINE IN_F IN_R
$ READ/END=FINE IN_F IN_R
$ READ/END=FINE IN_F IN_R
$!
$LOOP:
$!
$ READ/END=FINE IN_F IN_R
$!
$ IN_R=F$EDIT(IN_R,"COMPRESS,TRIM")
$!
$ U_T=F$ELEMENT(3," ",IN_R)
$!
$ IF F$GETDVI("''U_T'","DEVSTS") .EQ. 9 THEN -
REPLY/USER=(EUCOPNS,EUCTEST)/BELL/URGENT -
"
----------
PLEASE CHECK PROCESS ---> ''IN_R'
----------"
$!
$! SET PROC/ID='F$ELEMENT(2," ",IN_R)'/SUSP
$!
$ GOTO LOOP
$!
$FINE:
$!
$ CLOSE IN_F
$!
$ WAIT 00:15
$!
$ GOTO WLOOP
$!---
|