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.
|
