[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | DECmcc user notes file. Does not replace IPMT. |
| Notice: | Use IPMT for problems. Newsletter location in note 6187 |
| Moderator: | TAEC::BEROUD |
|
| Created: | Mon Aug 21 1989 |
| Last Modified: | Wed Jun 04 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 6497 |
| Total number of notes: | 27359 |
5200.0. "create/delete alarms" by DATCHA::RAOULT () Tue Jun 15 1993 10:10
HI,
Config Vs4000-60 vms 5.5-2 dns v1.1 framework 1.3
104 mbytes
I am working for ADP (Orly/Charles De Gaule Airports).
The links beetween the several sites are done through vitalinks (56kbds)
Due to the lack of robustness of the TSAM (lot of exception) I used a
set of alarms to survey the servers with ETHERNET AM ( polling on
responding address).
I got exceptions by this way too,so now ,when I find a Pb I try during
the exception procedure to check the status with TSM, and i build and
enable a specific alarm for processing several cases.
If the entity is accessible again I delete the specific alarm.
I got a problem two times last weeks.The jobs were still alive for
several specific alarms,and in the batch log file nothing was written
after the following command:
$ man/e delete domain mcc_reach rule "Specific rule"
DECmcc (V1.3.0)
and nothing more
_________________
If I issue dele/entry : ----> nothing happens
If I stop the batch(for ex batch_802) :
$ STOP PROC/ID=00000D79 (BATCH_802)
$ SH TI
28-MAY-1993 10:28:08 <---------- time-------------
The log file is now closed
ty [ALARMS.LOG]RESET_STATION_RULE_FIRED.LOG;221
>>>>>>>>> end of the log
$ open/read tmp mcc_alarms_log:reset_SVRY07_status.tmp
$ read/err=regle_exist tmp regle
$ regle_exist:
$ man/e delete domain mcc_reach rule SVRY07
DECmcc (V1.3.0)
Domain ADP:.MCC_REACH Rule SVRY07
AT 28-MAY-1993 09:49:44 <----------********
Rule successfully deleted.
Any ideas ?
Thanks in advance
Fabrice.
Following the details:
$ sh sys
VAX/VMS V5.5-2 on node FEROE 28-MAY-1993 10:06:15.62 Uptime 0 20:28:26
Pid Process Name State Pri I/O CPU Page flts Ph.Mem
00000101 SWAPPER HIB 16 0 0 00:00:12.62 0 0
00000104 IPCACP HIB 10 7 0 00:00:00.02 95 142
00000106 ERRFMT HIB 8 663 0 00:00:00.56 85 172
00000107 OPCOM HIB 8 355 0 00:00:00.93 266 183
00000108 AUDIT_SERVER HIB 10 38 0 00:00:00.28 1351 199
00000109 JOB_CONTROL HIB 9 1140 0 00:00:06.09 187 232
0000010A QUEUE_MANAGER HIB 8 10984 0 00:00:58.22 1065 1164
0000010B TP_SERVER HIB 10 4918 0 00:00:00.21 185 250
0000010E DECW$SERVER_0 HIB 6 11244 0 00:01:19.53 9779 5148
0000010F DECW$SESSION LEF 6 773 0 00:00:12.95 7724 3981
00000110 NETACP HIB 10 13548 0 00:00:17.29 228 393
00000112 REMACP HIB 8 13 0 00:00:00.04 75 101
00000113 INET_ACP HIB 9 73 0 00:00:00.21 235 364
00000114 UCX$INET_ROUTED LEF 5 9860 0 00:00:00.65 285 461 S
00000115 DNS$ADVER HIB 4 5021 0 00:00:02.08 216 313
00000118 DNS$TA HIB 4 473222 0 00:17:01.98 1059 1354
00000119 DNS$BACK HIB 6 13921 0 00:00:52.02 1166 1579
0000011A DTSS$SERVER LEF 11 9382 0 00:00:06.89 763 784
0000011B LATACP HIB 14 10 0 00:00:15.29 320 223
0000011C SYMBIONT_1 HIB 5 19698 0 00:00:01.50 735 116
0000011E BATCH_168 HIB 5 147909 0 00:03:04.32 2574 1928 B
0000011F BATCH_169 HIB 5 160295 0 00:04:44.36 3745 3144 B
00000321 VUE$SYSTEM_6 LEF 5 360 0 00:00:12.00 9401 411
00000122 DECW$FD LEF 7 9718 0 00:00:40.29 5869 3835
00000124 EVL HIB 6 1405 0 00:00:01.73 28615 103 N
00000125 MCC_DNA4_EVL COM 3 256 0 00:00:36.07 2693 2132
00000126 MCC_EVC_SINK COM 3 1766 0 00:00:41.66 2951 3172
00000128 MCC_TS_AM_SRV LEF 5 20034 0 00:00:30.17 298 795
00000129 DASM$COMC HIB 8 366 0 00:00:00.87 529 458
0000012A DASM_SERVER HIB 7 586 0 00:00:00.78 1121 957
0000012B DASM$COMR HIB 8 429 0 00:00:00.47 405 326
0000012E DASM_CLIENT LEF 6 71 0 00:00:04.78 470 452
00000131 BATCH_792 HIB 5 555892 0 01:01:50.65 12068 10296 B
00000135 DECW$MWM LEF 4 171 0 00:00:16.38 3325 3229
00000136 VUE$SYSTEM_2 LEF 5 1172 0 00:00:04.57 4770 399 S
00000137 VUE$SYSTEM_3 HIB 6 24344 0 00:20:09.03 28152 28194 S
00000138 DECW$TE_0138 LEF 7 205 0 00:06:07.68 4813 4159
00000139 SYSTEM LEF 5 3452 0 00:00:06.68 1002 402
0000013B _FTA5: LEF 4 837 0 00:00:04.97 7366 333
00000140 _FTA6: LEF 5 5779 0 00:00:13.90 6898 398
00000143 _FTA7: LEF 4 36960 0 00:01:19.61 4852 499
00000E55 BATCH_853 HIB 5 179 0 00:00:03.61 4238 7508 B
00000E56 VUE$SYSTEM_7 LEF 9 281 0 00:00:02.77 3126 3513
0000016A DECW$LOGINOUT LEF 9 1581 0 00:00:06.64 8110 4333
0000016D DECW$MWM_365 LEF 9 3319 0 00:00:06.36 2740 3282
0000016E VUE$SYSTEM_4 LEF 4 136 0 00:00:00.63 934 447 S
0000016F VUE$SYSTEM_5 HIB 6 37438 0 00:18:10.43 52065 18774 S
00000170 DECW$TE_0170 COM 5 44094 0 00:04:06.60 2957 3534
00000171 _FTA11: CUR 7 22826 0 00:00:44.24 19823 472
00000D79 BATCH_802 LEF 8 576 0 00:00:09.41 10603 440 B
00000D7C BATCH_804 LEF 8 587 0 00:00:07.99 10220 433 B
00000D80 BATCH_806 LEF 4 581 0 00:00:07.79 10293 425 B
$
Process BATCH_802 10:07:23
State LEF Working set 440
Cur/base priority 8/3 Virtual pages 2196
Current PC 80459E98 CPU time 000:00:00:09.41
Current PSL 01400004 Direct I/O 248
Current user SP 7FEED5A0 Buffered I/O 328
PID 00000D79 Page faults 10603
UIC [OPER] Event flags C0000001
C0000000
$ SH DEV/FI DISK$USER01:
Files accessed on device FEROE$DKA100: on 28-MAY-1993 10:09:45.13
Process name PID File name
00000000 [000000]INDEXF.SYS;1
00000000 [000000]PAGEFILE_FEROE.SYS;1
BATCH_168 0000011E [LOG]MCC_HISTORIAN_BAT_652.LOG;8
BATCH_169 0000011F [LOG]MCC_HISTORIAN_ADP.LOG;17
BATCH_169 0000011F [MCC]MCC_FDICTIONARY.DAT;3
BATCH_168 0000011E [MCC]MCC_FDICTIONARY.DAT;3
BATCH_792 00000131 [MCC]MCC_FDICTIONARY.DAT;3
VUE$SYSTEM_3 00000137 [MCC]MCC_FDICTIONARY.DAT;3
MCC_EVC_SINK 00000126 [MCC]MCC_FDICTIONARY.DAT;3
VUE$SYSTEM_5 0000016F [MCC]MCC_FDICTIONARY.DAT;3
BATCH_168 0000011E [MCC]MCC_MIR_DIRECTORY.DAT;3
BATCH_169 0000011F [MCC]MCC_MIR_DIRECTORY.DAT;3
BATCH_792 00000131 [MCC]MCC_MIR_DIRECTORY.DAT;3
VUE$SYSTEM_3 00000137 [MCC]MCC_MIR_DIRECTORY.DAT;3
VUE$SYSTEM_5 0000016F [MCC]MCC_MIR_DIRECTORY.DAT;3
BATCH_168 0000011E [MCC]MCC_MIR_ATTRIBUTE.DAT;3
BATCH_169 0000011F [MCC]MCC_MIR_ATTRIBUTE.DAT;3
BATCH_792 00000131 [MCC]MCC_MIR_ATTRIBUTE.DAT;3
VUE$SYSTEM_3 00000137 [MCC]MCC_MIR_ATTRIBUTE.DAT;3
VUE$SYSTEM_5 0000016F [MCC]MCC_MIR_ATTRIBUTE.DAT;3
MCC_DNA4_EVL 00000125 [MCC]MCC_DNA4_EVL.COM;3
MCC_EVC_SINK 00000126 [MCC]MCC_EVC_SINK.COM;3
BATCH_168 0000011E [MAPS]MCC_078F000400AA000001CBDB243F12E6A0.MCC_HIST_IN
ST012_P;1
BATCH_792 00000131 [LOG]BATCH_ENABLE_ALARMS.LOG;103
BATCH_792 00000131 [ALARMS.LOG]BATCH_ENABLE_ALARMS.LOG;59
BATCH_792 00000131 [MCC]MCC_ALARMS_INSTANCE_MIR.DAT;1
VUE$SYSTEM_5 0000016F [MCC]MCC_ALARMS_INSTANCE_MIR.DAT;1
BATCH_792 00000131 [MCC]MCC_ALARMS_ATTRIBUTE_MIR.DAT;1
VUE$SYSTEM_5 0000016F [MCC]MCC_ALARMS_ATTRIBUTE_MIR.DAT;1
VUE$SYSTEM_3 00000137 [MCC]MCC_ICONIC_MAP_PM.UID;2
VUE$SYSTEM_5 0000016F [MCC]MCC_ICONIC_MAP_PM.UID;2
BATCH_792 00000131 [MCC]MCC_PA_INSTANCE_MIR.DAT;1
VUE$SYSTEM_3 00000137 [MCC]MCC_PA_INSTANCE_MIR.DAT;1
BATCH_792 00000131 [MCC]MCC_PA_ATTRIBUTES_MIR.DAT;1
VUE$SYSTEM_3 00000137 [MCC]MCC_PA_ATTRIBUTES_MIR.DAT;1
BATCH_792 00000131 [MCC]MCC_TS_AM_INST_MIR.DAT;1
VUE$SYSTEM_5 0000016F [MCC]MCC_TS_AM_INST_MIR.DAT;1
VUE$SYSTEM_3 00000137 [MCC]MCC_TS_AM_INST_MIR.DAT;1
BATCH_792 00000131 [MCC]MCC_TS_AM_ATTR_MIR.DAT;1
VUE$SYSTEM_5 0000016F [MCC]MCC_TS_AM_ATTR_MIR.DAT;1
VUE$SYSTEM_3 00000137 [MCC]MCC_TS_AM_ATTR_MIR.DAT;1
VUE$SYSTEM_3 00000137 [MCC]MCC_TARGET_INST_MIR.DAT;1
VUE$SYSTEM_5 0000016F [MCC]MCC_TARGET_INST_MIR.DAT;1
VUE$SYSTEM_5 0000016F [MCC]MCC_TARGET_DATA_MIR.DAT;1
VUE$SYSTEM_3 00000137 [MCC]MCC_TARGET_DATA_MIR.DAT;1
VUE$SYSTEM_3 00000137 [LOG]MCC_NOTIFICATION.LOG;198
VUE$SYSTEM_5 0000016F [LOG]MCC_NOTIFICATION.LOG;199
********BATCH_802 00000D79 [MCC]MCC_ALARMS_SECURITY.COM;6
BATCH_804 00000D7C [MCC]MCC_ALARMS_SECURITY.COM;6
BATCH_806 00000D80 [MCC]MCC_ALARMS_SECURITY.COM;6
********BATCH_802 00000D79 [MCC_REACH]CREATE_STATION_RULE.COM;42
BATCH_804 00000D7C [MCC_REACH]CREATE_STATION_RULE.COM;42
BATCH_806 00000D80 [MCC_REACH]CREATE_STATION_RULE.COM;42
********BATCH_802 00000D79 [ALARMS.LOG]RESET_STATION_RULE_FIRED.LOG;221
BATCH_804 00000D7C [ALARMS.LOG]RESET_STATION_RULE_FIRED.LOG;223
********BATCH_802 00000D79 [ALARMS.LOG]RESET_SVRY07_STATUS.TMP;2
BATCH_806 00000D80 [ALARMS.LOG]RESET_STATION_RULE_FIRED.LOG;225
BATCH_804 00000D7C [ALARMS.LOG]RESET_SVRY11_STATUS.TMP;1
BATCH_806 00000D80 [ALARMS.LOG]RESET_SVRY20_STATUS.TMP;1
********** NO FILE OPEN BY THESE BATCH ON SYS$SYSDEVICE:
MCC_MAIN ,CMA$OPEN_RTL.EXE;3,CMA$OPEN_LIB_SHR.EXE;2
ARE RELEASED
**********
$ TY [ALARMS.LOG]RESET_STATION_RULE_FIRED.LOG;221
$!
$! This command procedure is always run when anybody on the entire system
$! logs in. It is equivalent to LOGIN.COM except that the instructions
$! contained herein are executed everytime anyone on the VMS system
$! logs in to their account.
$!
$! For interactive processes, turn on Control T, and set the terminal type
$!
$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET CONTROL=T
$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET TERMINAL/INQUIRE
$!
$! For MicroVAX systems only, use the command MOUNT/NOASSIST.
$!
$ IF (.NOT. F$TRNLNM("SYS$MICROVAX")) THEN GOTO SKIP_MICROVAX_COMMANDS
$ MOU*NT :== MOUNT/NOASSIST
$SKIP_MICROVAX_COMMANDS:
$!
$! Place your site-specific LOGIN commands below
$!
$! FILE: MCC_ALARMS_SECURITY.COM
$!
$! **************************************************************
$! * ********************************************************** *
$! * * * *
$! * * Copyright (c) Digital Equipment Corporation, 1990 * *
$! * * All Rights Reserved. Unpublished rights reserved * *
$! * * under the copyright laws of the United States. * *
$! * * * *
$! * * The software contained on this media is proprietary * *
$! * * to and embodies the confidential technology of * *
$! * * Digital Equipment Corporation. Possession, use, * *
$! * * duplication or dissemination of the software and * *
$! * * media is authorized only pursuant to a valid written * *
$! * * license from Digital Equipment Corporation. * *
$! * * * *
$! * * RESTRICTED RIGHTS LEGEND Use, duplication, or * *
$! * * disclosure by the U.S. Government is subject to * *
$! * * restrictions as set forth in Subparagraph (c)(1)(ii) * *
$! * * of DFARS 252.227-7013, or in FAR 52.227-19, as * *
$! * * applicable. * *
$! * * * *
$! * ********************************************************** *
$! **************************************************************
$!
$! FACILITY:
$! MCC -- Management Control Center
$!
$! ABSTRACT:
$!
$! This purpose of this command file is to normalize DCL symbols, set
$! user's privileges to NOALL, restrict logical trasnlation to searching
$! on the system logical translation table, all as a security measure.
$!
$! When a RULE fires, this command file will be queued to the SYS$BATCH
$! or user specifed execution queue. This file will call the user's
$! specified command file after taking the above security precautions.
$! It will then set the user's environment back to its original state.
$!
$! The LOGFILE for the execution of the batch job is written to the
$! directory where the user specified command procedure is located.
$!
$! The parameters p1-p8 are displayed if the MCC_ALARMS_FM_LOG debug mask
$! is set to ??
$!
$! ========================================================================
$!++
$! If the MCC_ALARMS_FM_LOG set to ALARMS$M_LOG_SECURITY_WRITELNS then write
$! the values of P1 through P8
$!--
$!
$ ALARMS$M_LOG_SECURITY_WRITELNS = %X08
$!
$ ALARMS$STR_MASK = f$trnlnm ("MCC_ALARMS_FM_LOG")
$ ALARMS$INT_MASK = f$integer ("%x"+ ALARMS$STR_MASK)
$ ALARMS$BIT = ALARMS$INT_MASK .and. ALARMS$M_LOG_SECURITY_WRITELNS
$!
$ queue = f$getqui ("DISPLAY_JOB", "QUEUE_NAME",, "THIS_JOB")
$ write sys$output "Current queue: ",queue
Current queue: CLEAR_ALARMS
$!
$ if ALARMS$BIT .gt. 0
$ endif
$!
$!++
$! Delete all the users symbols. This is done to NORMALIZE the DCL symbols
$!--
$ DELETE = "DELETE"
$ DELETE/SYMBOL/GLOBAL/ALL
$!++
$! DELETE user defined logicals in PROCESS and JOB tables
$!--
$ if ALARMS$BIT .gt. 0 then SHOW LOG
$!
$! DEASSIGN/PROCESS/ALL !For Debug - removed by RJS, 18-May-92
$! DEASSIGN/JOB/ALL !For Debug - removed by RJS, 18-May-92
$!
$! Restrict logical translation to the PROCESS, JOB and SYSTEM logical
$! translation tables. GROUP is not used.
$ DEFINE/TABLE=LNM$PROCESS_DIRECTORY LNM$FILE_DEV LNM$PROCESS,-
LNM$JOB, LNM$SYSTEM
$!
$ if ALARMS$BIT .gt. 0 then SHOW LOG
$!
$!++
$! Save all users privileges and turn them off
$!--
$ SAVEPRIVS = F$SETPRV ("NOALL,TMPMBX, NETMBX")
$!
$!++
$! Split the DATA filename off from the User's Procedure name
$!--
$ COMMAND_PROCEDURE = F$ELEMENT(0, "/", P8)
$ DATA_FILE = F$ELEMENT(1, "/", P8)
$!
$! The below 4 lines are to remove any trailing dot that have been
$! known to show up in some cases.
$ FILE_NAME = f$parse(data_file,,,"NAME")
$ DATA_FILE = "SYS$SCRATCH:" + file_name + ".DAT"
$!++
$! Set ON incase user's command procedure returns error
$!--
$ on sever_error then continue
$ on error then continue
$ on warning then continue
$
$!++
$! Run the User's Command Procedure
$!--
$ @DISK$USER01:[MCC_REACH]RESET_STATION_RULE_FIRED.COM;2 "Domain ADP:.MCC_REACH
Rule SVRY07 "- !rulename
"Station Reachability Rule "- !category
"mcc_reach rule"- !description
"(station SVRY07_ether responding ad
dress=08-00-2B-2D-9E-AD,at every 00:05:00)"- !expression
"28-MAY-1993 07:56:08.14"- !time
"Rule fired: Station ADP:.SVRY07_ether Responding Address
= 08-00-2B-2D-9E-AD 28-MAY-1993 07:56:07.22"- !dtcrtf or error
"system"- !notification params
"SYS$SCRATCH:MCC_ALARMS_DATA_07560814.DAT" !file th
at contains more info about the rule
$ set noon
$ sh sym p1
P1 = "Domain ADP:.MCC_REACH Rule SVRY07 "
$ sh sym p2
P2 = "Station Reachability Rule "
$ sh sym p3
P3 = "mcc_reach rule"
$ sh sym p4
P4 = "(station SVRY07_ether responding address=08-00-2B-
2D-9E-AD,at every 00:05:00)"
$ sh sym p5
P5 = "28-MAY-1993 07:56:08.14"
$ sh sym p6
P6 = "Rule fired: Station ADP:.SVRY07_ether Responding Address = 08-00-2B-2D-9
E-AD 28-MAY-1993 07:56:07.22"
$ sh sym p7
P7 = "system"
$ ty SYS$SCRATCH:MCC_ALARMS_DATA_07560814.DAT
RULE: Domain ADP:.MCC_REACH Rule SVRY07
MANAGED_OBJECT: Station ADP:.SVRY07_ether
DESCRIPTION: Station Reachability Rule
CATEGORY: mcc_reach rule
EXPRESSION: (station SVRY07_ether responding address=08-00
-2B-2D-9E-AD,at every 00:05:00)
TIME: 28-MAY-1993 07:56:08.14
EVIDENCE: Rule fired: Station ADP:.SVRY07_ether Responding Address = 08-00-2B-2D
-9E-AD 28-MAY-1993 07:56:07.22
EVENT_ARGUMENTS:
PARAMETER: system
DOMAIN: Domain ADP:.MCC_REACH
SEVERITY: Clear
$ @mcc_reach_dir:mcc_reach_symbols.com
$! MCC_REACH_SYMBOLS.COM
$ SET_SYMBOLS:
$ mcc_queue == "alarms"
$!
$ reach_domain == ".MCC_REACH"
$!
$ select_list == "(NODE4 *,TERM *,STATION *)"
$!
$ top_domain == ".ADP"
$!
$ namespace == "ADP:."
$!
$ domain_nonotify == "DOMAIN_X"
$!
$ mail_list == "system"
$!
$ END:
$ exit
$!
$ set proc/priv=(grpnam,oper)
$ set def mcc_reach_dir
$ mcc_node = "0" !change this if the events are to be sent to an alternate node
$!
$!
$!
$ pid=f$getjpi ("","PID")
$ domain_members = "MCC_REACH_DIR:DOMAIN_MEMBERS.IDX"
$ member_excepts = "MCC_REACH_DIR:NONOTIFY_MEMBERS.IDX"
$!
$ gosub get_object
$ GET_OBJECT:
$!
$ search/output=osi_sever_00000D79.tmp SYS$SCRATCH:MCC_ALARMS_DATA_07560814.DAT
SEVERITY:
$ open/read object osi_sever_00000D79.tmp
$ sever:
$ read/err=finsever object severity
$ severity = f$edit(severity,"COMPRESS,TRIM,UPCASE")
$ write sys$output severity
SEVERITY: CLEAR
$ severity = f$element(1," ",severity)
$ finsever:
$ if severity .eqs. "INDETERMINATE" then severity = "MINOR"
$ write sys$output severity
CLEAR
$ close object
$ delete osi_sever_00000D79.tmp;
$ search/output=osi_event_00000D79.tmp SYS$SCRATCH:MCC_ALARMS_DATA_07560814.DAT
"MANAGED_OBJECT"
$ open/read object osi_event_00000D79.tmp
$ read/err=end_object_read object man_obj
$ END_OBJECT_READ:
$ close object
$ delete osi_event_00000D79.tmp;
$ man_obj= f$edit(man_obj,"COMPRESS,TRIM,UPCASE")
$ man_obj = F$element(2," ",man_obj)
$ ! test si entite PC (node4) ou TERMINAL SERVER
$ obj_name = man_obj - "ADP:." - "_ETHER"
$ if f$extract(0,1,obj_name) .eqs. "P"
$ else
$ ENTITE="TERMINAL"
$ obj_mcc = obj_name
$ def sys$output mcc_alarms_log:terminal_SVRY07_status.log
$ open/read serveur mcc_alarms_log:terminal_SVRY07_status.log
$ status:
$ read/end=finstat serveur status
$ status = f$edit(status,"COMPRESS,TRIM,UPCASE")
$ if f$element(0," ",status) .eqs. obj_name
$ else goto status
$ status:
$ read/end=finstat serveur status
$ status = f$edit(status,"COMPRESS,TRIM,UPCASE")
$ if f$element(0," ",status) .eqs. obj_name
$ else goto status
$ status:
$ read/end=finstat serveur status
$ status = f$edit(status,"COMPRESS,TRIM,UPCASE")
$ if f$element(0," ",status) .eqs. obj_name
$ else goto status
$ status:
$ read/end=finstat serveur status
$ status = f$edit(status,"COMPRESS,TRIM,UPCASE")
$ if f$element(0," ",status) .eqs. obj_name
$ else goto status
$ status:
$ read/end=finstat serveur status
$ status = f$edit(status,"COMPRESS,TRIM,UPCASE")
$ if f$element(0," ",status) .eqs. obj_name
$ then
$ etat = f$element(3," ",status)
$ adresse = f$element(1," ",status)
$ write sys$output etat
AVAILABLE
$ if etat .eqs. "AVAILABLE"
$ then severity = "CLEAR"
$ else if etat .eqs. "UNAVAILABLE"
$ endif
$ else goto status
$ endif
$ finstat:
$ close serveur
$ purge /keep=2 mcc_alarms_log:terminal_SVRY07_status.log
%PURGE-W-FILNOTPUR, error deleting DISK$USER01:[ALARMS.LOG]TERMINAL_SVRY07_STATU
S.LOG;17
-RMS-E-FNF, file not found
%PURGE-W-FILNOTPUR, error deleting DISK$USER01:[ALARMS.LOG]TERMINAL_SVRY07_STATU
S.LOG;16
-RMS-E-FNF, file not found
$ gosub check_logical
$ CHECK_LOGICAL:
$!
$ check_log = f$trnlnm("MCC_REACH_SVRY07","LNM$GROUP")
$ sh symb check_log
CHECK_LOG = "Unreachable"
$ if check_log .nes. ""
$ then
$ last_status="Unreachable"
$ else
$ endif
$ if last_status .eqs. "Reachable" .and. severity .nes. "CLEAR"
$ else if last_status .eqs. "Unreachable" .and. severity .eqs. "CLEAR"
$ then
$ deassign/table=lnm$group MCC_REACH_SVRY07
$ message="ACCES SVRY07 RETABLI"
$ else goto end
$ endif
$ endif
$ return
$ endif
$ @mcc_reach_dir:create_station_rule.com SVRY07 08-00-2B-2D-9E-AD CLEAR
! Proc�dure de cr�ation d'une regle d'alarme permettant
! d'avertir lors de le remise en service d'un serveur
! Cette proc�dure est appel�e par les proc�dures : STATION_RULE*.COM
! P1 = Nom de l'�l�ment ( Serveur ... )
! P2 = Adresse de l'�l�ment
! P3 = Severite
$ cote = """
$ element = P1
$ adresse = P2
$ severite = P3
$ write sys$output severite
CLEAR
$ set proc/priv=cmkrnl
$ nom_job = element + "_RULE"
$ if severite .nes. "CLEAR"
$ else
!$ mes_1 = "$ mana/ent"
!$ mes_2 = "use ver"
!$ mes_3 = "disable domain mcc_reach rule 'element'"
!$ mes_4 = "delete domain mcc_reach rule 'element'"
!$ mes_5 = "exit"
!$
mes_6 = "!$ @mcc_reach_dir:stop_batch 'nom_job'"
!$ mes_7 = "$ exit"
!$ open/write sortie 'element'.com
!$ i = 1
!$ ecrit:
!$ write sortie mes_'i
!$ i = i + 1
!$ if i .lt. 8 then goto ecrit
!$ close sortie
!$ purge /keep=2 'element'.com
$ define sys$output mcc_alarms_log:reset_SVRY07_status.log
$ purge mcc_alarms_log:reset_SVRY07_status.log
$ search mcc_alarms_log:reset_SVRY07_status.log "No such entity:" -
/out=mcc_alarms_log:reset_SVRY07_status.tmp
%SEARCH-I-NOMATCHES, no strings matched
$ open/read tmp mcc_alarms_log:reset_SVRY07_status.tmp
$ read/err=regle_exist tmp regle
$ regle_exist:
$ man/e delete domain mcc_reach rule SVRY07
DECmcc (V1.3.0)
*********************** AND NOTHING ELSE
***********
END OF LOG FOR SVRY11
!$ close sortie
!$ purge /keep=2 'element'.com
$ define sys$output mcc_alarms_log:reset_SVRY11_status.log
$ purge mcc_alarms_log:reset_SVRY11_status.log
$ search mcc_alarms_log:reset_SVRY11_status.log "No such entity:" -
/out=mcc_alarms_log:reset_SVRY11_status.tmp
%SEARCH-I-NOMATCHES, no strings matched
$ open/read tmp mcc_alarms_log:reset_SVRY11_status.tmp
$ read/err=regle_exist tmp regle
$ regle_exist:
$ man/e
delete domain mcc_reach rule SVRY11
DECmcc (V1.3.0)
************
END OF LOG FOR SVRY11
$ search mcc_alarms_log:reset_SVRY20_status.log "No such entity:" -
/out=mcc_alarms_log:reset_SVRY20_status.tmp
%SEARCH-I-NOMATCHES, no strings matched
$ open/read tmp mcc_alarms_log:reset_SVRY20_status.tmp
$ read/err=regle_exist tmp regle
$ regle_exist:
$ man/e delete domain mcc_reach rule SVRY20
DECmcc (V1.3.0)
*********************** AND NOTHING ELSE
THEN I ISSUE ---> STOP PROC/ID=00000D79 (BATCH_802)
$ SH TI
28-MAY-1993 10:28:08 <----------
THE LOG FILE [ALARMS.LOG]RESET_STATION_RULE_FIRED.LOG;221
SEARCH-I-NOMATCHES, no strings matched
$ open/read tmp mcc_alarms_log:reset_SVRY07_status.tmp
$ read/err=regle_exist tmp regle
$ regle_exist:
$ man/e delete domain mcc_reach rule SVRY07
DECmcc (V1.3.0)
Domain ADP:.MCC_REACH Rule SVRY07
AT 28-MAY-1993 09:49:44 <----------********
Rule successfully deleted.
THEN ISSUE STOP PROC/ID=00000D79 (BATCH_806)
SH TI
28-MAY-1993 10:29:12 <-----------********
TY [ALARMS.LOG]RESET_STATION_RULE_FIRED.LOG;225
%SEARCH-I-NOMATCHES, no strings matched
$ open/read tmp mcc_alarms_log:reset_SVRY20_status.tmp
$ read/err=regle_exist tmp regle
$ regle_exist:
$ man/e delete domain mcc_reach rule SVRY20
DECmcc (V1.3.0)
Domain ADP:.MCC_REACH Rule SVRY20
AT 28-MAY-1993 09:49:44 <------------
Rule successfully deleted.
UAF> SH ALARMS <---- specific account
Username: ALARMS Owner: ALARMS
Account: SYSTEM UIC: [2,5] ([OPER])
CLI: DCL Tables: DCLTABLES
Default: MCC_DISK:[ALARMS.LOG]
LGICMD: LOGIN
Flags:
Primary days: Mon Tue Wed Thu Fri
Secondary days: Sat Sun
No access restrictions
Expiration: (none) Pwdminimum: 8 Login Fails: 0
Pwdlifetime: (none) Pwdchange: (pre-expired)
Last Login: (none) (interactive), 28-MAY-1993 10:35 (non-interactive)
Maxjobs: 0 Fillm: 150 Bytlm: 64000
Maxacctjobs: 0 Shrfillm: 0 Pbytlm: 0
Maxdetach: 0 BIOlm: 100 JTquota: 1024
Prclm: 10 DIOlm: 100 WSdef: 4096
Prio: 4 ASTlm: 100 WSquo: 8192
Queprio: 0 TQElm: 150 WSextent: 40000
CPU: (none) Enqlm: 2000 Pgflquo: 100000
Authorized Privileges:
CMKRNL CMEXEC SYSNAM GRPNAM ALLSPOOL DETACH DIAGNOSE LOG_IO
GROUP ACNT PRMCEB PRMMBX PSWAPM ALTPRI SETPRV TMPMBX WORLD
OPER EXQUOTA NETMBX VOLPRO PHY_IO BUGCHK PRMGBL SYSGBL MOUNT
PFNMAP SHMEM SYSPRV BYPASS SYSLCK SHARE GRPPRV READALL
SECURITY
Default Privileges:
CMKRNL CMEXEC SYSNAM GRPNAM ALLSPOOL DETACH DIAGNOSE LOG_IO
GROUP ACNT PRMCEB PRMMBX PSWAPM ALTPRI SETPRV TMPMBX WORLD
OPER EXQUOTA NETMBX VOLPRO PHY_IO BUGCHK PRMGBL SYSGBL MOUNT
PFNMAP SHMEM SYSPRV BYPASS SYSLCK SHARE GRPPRV READALL
SECURITY
UAF>
State LEF Working set 433
Cur/base priority 8/3 Virtual pages 2196
Current PC 80459E98 CPU time 000:00:00:07.99
Current PSL 01400004 Direct I/O 258
Current user SP 7FEED5A0 Buffered I/O 329
PID 00000D7C Page faults 10220
UIC [OPER] Event flags C0000001
C0000000
Process BATCH_806 10:08:27
State LEF Working set 428
Cur/base priority 3/3 Virtual pages 2196
Current PC 80459E98 CPU time 000:00:00:07.79
Current PSL 01400004 Direct I/O 253
Current user SP 7FEED5A0 Buffered I/O 328
PID 00000D80 Page faults 10296
UIC [OPER] Event flags C0000001
C0000000
| T.R | Title | User | Personal
Name | Date | Lines
|
|---|