XUSFACHK ;ISF/RWF - FAILED ACCESS ATTEMPTS LOG MONITOR ;10/15/2003 15:25
Source file <XUSFACHK.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
FAILED | ;FAILED ACCESS ATTEMPTS SCAN PROGRAM
|
|
CHKIT | ;check to see if number of attempts on any one port is over KEEP THRESHOLD, if so save it.
|
|
EXIT | ||
CLEAN | ;clean up ^XTMP("XUSFACHK" global, If no new failed attempts remove.
|
|
SET | ;set ^XTMP("XUSFACHK" global.
|
|
BULL | ;send bulletin to irm. if after hours, send to aod and have irm paged.
|
|
TXT(S) | ;Add text to ^TMP("XM",$J
|
|
NBH(DATE) | ;FIND OUT IF NOW IS DURING NORMAL BUSINESS HOURS.
|