How to send a capture containing additional SYSVIEW display information in the email
search cancel

How to send a capture containing additional SYSVIEW display information in the email

book

Article ID: 186174

calendar_today

Updated On:

Products

SYSVIEW Performance Management

Issue/Introduction

Is there a way to show in an email the current image setting of the soft cap?
It shows when issuing an RMCAP command or the xxxxxxx command and so I would like to capture this as additional information when we generate an email based on our thresh settings for variable MSU4HPCT

 

Resolution

Set up an EVENT CAPTURE to issue the RXEXEC command to execute the REXX.


 
/* REXX */                                                     
/* TRACE I */                                                  
ADDRESS "LINK" "GSVXRXAA"                                      
dropbuf 0                                                      
ADDRESS SYSVIEWE "C(RMCAP)"                                    
LINES = queued()                                               
mailine.1 = 'SysID LPARName CPC Image 4hAve'                   
mailine.1 = mailine.1 'WaitType WaitName CPUTime'              
num = 1                                                        
DO J = 1 TO LINES                                              
pull l.J                                                       
if substr(l.j,1,1) = 'D' then do                               
num = num + 1                                                  
mailine.num = translate(substr(l.J,3,80),' ')              
End                                                            
END                                                            
userfrom = "[email protected]"                      
userto = "[email protected]"                        
Subject = "SYSVIEW : Threshold Limit reached " date() time()   
ADDRESS SYSVIEWE "C(SET EMAILID C'"userfrom"')"                
ADDRESS SYSVIEWE "C(SENDMAIL TO "userto" SUBJECT C'"subject"')"
DO I = 1 to num                                                
ADDRESS SYSVIEWE "INPUT(1,'"mailine.I"')"                      
ADDRESS SYSVIEWE "C(DOWN 1)"                                   
End                                                            
ADDRESS SYSVIEWE "C(SEND TEXT CLEAR)"                          
ADDRESS SYSVIEWE "C(END)"                                      
ADDRESS TSO                                                    
DROPBUF                                                        
EXIT