×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Only way I know of is override the display file and then use write/reads instead of exfmt on the display file.
My (old) example, all rpg . . .
o--------------------------------------------------------------------------
<=> - Timeout a workstations after nn period of inactivity
--------------------------------------------------------------------------
ftsusdp4d cf e workstn
f usropn
f maxdev(*file)
. . .
// Override waitrcd on the display file for shorter interval
gCmd = 'OVRDSPF FILE(TSUSDP4D) TOFILE(*LIBL/TSUSDP4D) WAITRCD(30)';
gMsgid = utlty_RunCmd(gCmd);
if not %open(tsusdp4d);
open tsusdp4d;
endif;
- - - -
. . .
monitor;
// Write screen, wait for input
write SCREEN1;
read tsusdp4d;
on-error 1331;
msg_Completion('Due to inactivity, ' + %trimr(psds.Pgm)
+ ' auto-exited.':3);
exsr @exit;
endmon;
hth - john
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
