search cancel

SOLVE/NetMaster - Controlling Alerts Monitor

book

Article ID: 214763

calendar_today

Updated On:

Products

SOLVE:Operations Automation NetMaster Network Management for TCP/IP NetMaster Network Management for SNA NetMaster Network Automation SOLVE: Access Session Management

Issue/Introduction

How to clear the messages from the Alert Monitor if alerts are not closing manually. Want to have alerts that are forwarded automatically cleared. Or else have them cleared after a set time period. Otherwise no clearing alerts will fill the alerts monitor buffer. 

 

Environment

Release : 11.9

Component : CA SOLVE:Operations Automation for z/OS

Resolution

Created a custom proc for EXPIRE/CLOSE alerts after 3 days

See example below, it runs on a TIMER each day and will delete any Alert older than 3 days. Add this proc to a member in TESTEXEC Library: 


-* &CONTROL TRACELOG                                                    
&#AM$KEY   = &NMID                                                      
&#AM$KEY   = &SETLENG 12                                                
&#AM$KEY   = &CONCAT &#AM$KEY 0                                         
&#AMTDATE  = &DATECONV DATE8 &DATE8 DATE8 -3                            
                                                                        
   &VARTABLE GET ID=$AMACTALERTS SCOPE=GLOBAL OPT=KGT KEY=#AM$KEY +     
             FIELDS=(.KEY,MDO) VARS=(#AM$KEY,$AMALERT.)                 
   &ASSIGN VARS=#AM$WKSYS  +                                            
      FROM MDO=$AMALERT.SYSTEMID                                        
&DOWHILE 0&ZFDBK EQ 0 AND .&#AM$WKSYS EQ .&NMID                         
                                                                        
   &ASSIGN VARS=#AM$WKDATE +                                            
      FROM MDO=$AMALERT.DATE                                            
   &IF &#AM$WKDATE GE &#AMTDATE &THEN &GOTO .ARND                       
                                                                        
   &ASSIGN VARS=#AM$WKTIME +                                            
      FROM MDO=$AMALERT.TIME                                            
   &ASSIGN VARS=#AM$APPLID +                                            
      FROM MDO=$AMALERT.APPLID                                          
   &ASSIGN VARS=#AM$CLASSID +                                           
      FROM MDO=$AMALERT.CLASSID                                         
   &ASSIGN VARS=#AM$RESID +                                             
      FROM MDO=$AMALERT.RESID                                           
-*    &#AM$RESID = &ZQUOTE2 &#AM$RESID                                  
   &ASSIGN VARS=#AM$RESOURCE +                                          
      FROM MDO=$AMALERT.RESOURCE                                        
-*    &#AM$RESOURCE = &ZQUOTE2 &#AM$RESOURCE                            
   &DELAY .1                                                            
                                                                        
&CALL PROC=$RMAMAPI +                                                   
      PARMS=(CALLTYPE=ALERT_CLEAR,+                                     
             APPLID=&#AM$APPLID,+                                       
             CLASSID=&#AM$CLASSID,+                                     
             RESID='&#AM$RESID',+                                       
             RESOURCE='&#AM$RESOURCE')                                  
.ARND                                                                   
   &VARTABLE GET ID=$AMACTALERTS SCOPE=GLOBAL OPT=KGT KEY=#AM$KEY +     
             FIELDS=(.KEY,MDO) VARS=(#AM$KEY,$AMALERT.)                 
   &ASSIGN VARS=#AM$WKSYS  +                                            
      FROM MDO=$AMALERT.SYSTEMID                                        
&DOEND                                                                  
&END