Medir Filesystems de USS y envio por mail

Todo lo relacionado con REXX en este ambiente.
Responder
Avatar de Usuario
denial
Colaborador
Colaborador
Mensajes: 117
Registrado: 13 Nov 2007, 15:39
País: Francia
Ciudad: Toulouse
Ocupación: System Programmer
Contactar:

Medir Filesystems de USS y envio por mail

Mensaje por denial » 29 May 2013, 17:29

Buenas les adjunto una rexx que estuvimos haciendo junto a un colega. Esta rexx tiene la particularidad de ver el estado de los filesystems del USS que estén arriba del 80%. Y también sirve como ejemplo para ver como se pasan Stems (arrays) a las funciones.
Por supuesto para poder utilizar esto, debe estar levantado el servicio (daemon) del SMTP.
Sepan disculpar los nombres de las variables.

Código: Seleccionar todo

 /*REXX*/                                                                
 /**************************************************************/        
 /* Rexx para listar la ocupacion de los FileSystems */        
 /* Importante:                                                */        
 /* Esta REXX ejecuta un df -Pk y verifica que el porcentaje de ocupacion sea superior al 80    */     
 /**************************************************************/        
 "FREE FILE(OUTDD)"                                                      
 call bpxwunix "df -Pk | awk '+$5 >= 80 {print}'" ,,out.                  
 call rutina1 "out.",out.0                                               
 exit 0                                                                  
 rutina1:                                                                
 C=6                                                                     
 salida=arg(1)                                                           
 cant = strip(arg(2))                                                    
 say "cant: " cant                                                       
 Sub = 'Estado de los FileSystem'                                    
 A.1 = 'HELO SERVSMTP '                                                   
 A.2 = 'MAIL FROM:<CORREO DESDE>'              
 A.3 = 'RCPT TO:<CORREO HASTA>'                
 A.4 = 'DATA '                                                           
 A.5 = 'SUBJECT:' Sub                                                    
   do h=1 to cant                                                        
    interpret "algo="salida"h"                                           
    A.C = algo                                                           
    C=C+1                                                                
    iterate                                                              
   end                                                                   
 C = (C + 1)                                                             
 A.C = 'QUIT'                                                            
 " ALLOC FI(OUTDD)  SYSOUT(B) WRITER(SMTP)"                              
 "EXECIO  * DISKW OUTDD ( STEM A. FINIS "                                
 "FREE FILE(OUTDD)"                                                      
 return                                                                  
//STEP01 EXEC PGM=LEARN

--.:disKfuncional--

Avatar de Usuario
Vicente
Colaborador avanzado
Colaborador avanzado
Mensajes: 545
Registrado: 21 Jul 2011, 04:52
País: España
Ciudad: Malaga
Ocupación: Técnico en Sistemas

Re: Medir Filesystems de USS y envio por mail

Mensaje por Vicente » 03 Jun 2013, 06:28

Gracias.
También sirve como ejemplo de envío de correo utilizando REXX
Varios días probando, equivocandote y volviendo a probar
pueden ahorrarte quince minutos de lectura de un manual.

Avatar de Usuario
jlanderos
Usuario
Usuario
Mensajes: 18
Registrado: 26 Sep 2017, 18:21
País: México
Ciudad: CDMX
Ocupación: IT Specialist

Re: Medir Filesystems de USS y envio por mail

Mensaje por jlanderos » 29 Sep 2017, 19:49

Saludos:

Antes que anda agradezco la aportación que haz hecho, es de gran ayuda para unos temillas que tengo pensado hacer en un futuro dentro del entorno en el que actualmente trabajo.

Ahora bien, más que una corrección u observación sobre el programa en sí. Solo hago el comentarios que si la finalidad del programa fue la búsqueda de Filesystems que estén en peligro de llenarse, podría userse en su lugar la opcion "FSFULL(threshold,increment)" que viene dentro de los parámetros de montaje de los FileSystems.

A continuación dejo un link donde puede verse más detalle del tema. En lo personal lo utilizó actualmente y me ha salvado de varios dolores de cabeza y desvelos.

https://www.ibm.com/support/knowledgece ... oea7mt.htm

Con ello, apoyado con alguna herramienta de automatización, puedes tener bajo control ese tema.

Saludos :arriba: .

Responder