| Categoría
:Programación
Autor : Gustavo Marcelo Ramos
Título : Controlador de Comunicación
y aviso
Descripción del truco:
Esta secuencia de instrucciones CL permiten recuperar
el resultado de la estadística de verificación
de conexión del Cmdo. VFYTCPCNN y alertar a
quien corresponda mediante el envio de un e-mail desde
el CL mismo. Las variable que conforman el texto del
e-mail quedan a libre definición por los Analistas
Programadores.
Dcl (&Msg ) *Char (000132)
Dcl (&Msgid) *Char (000007)
Dcl (&Tema ) *Char (000023) Value(\'Distribución de Tablas\')
Dcl (&Texto) *Char (000500)
Dcl (&Direc) *Char (000012) Value(\'10.250.0.112\')
Dcl (&Fil ) *Char (000002)
Dcl (&Dfil ) *Char (000050)
Dcl (&Obj ) *Char (000008)
Dcl (&SEV ) *DEC (001 00) Value(0)
/* Housekeeping */
Rmvmsg Pgmq(*Same (* *None *None)) Msgq(*Pgmq) Clear(*All)
Chequea Comunicaciones Servidor XXXXXX */
Vfytcpcnn (&Direc) Msgmode(*QUIET) Waittime(5)
Rcvmsg Msgq(*PGMQ) Msgtype(*LAST) WAIT(1) Rmv(*NO) Msg(&Msg) +
Msgid(&Msgid)
Analiza Check de Comunicaciones SAPPROD */
If (&Msgid *Eq \'TCP3210\') (Do)
Chgvar (&Sev) (%Sst(&Msg 43 1))
If (&Sev *Eq 0) (Do)
Armado de e-mail Aviso a Central de Operaciones*/
Chgvar (&Obj) Value(\'CGSAVF00\')
Chgvar (&Texto) (\'Fallo de Comunicación - Proceso Transferencia +
de Tablas - Branch: CENTRAL\' || \' - Objeto: \' || &Obj
|| \' Ejecutar Manualmente el PROCESO\')
Snddst Type(*LMSG) Tointnet((juan@perez.com.ar *PRI) +
(*NONE *CC)) Dstd(&Tema) +
Longmsg(&Texto) Cfmdel(*YES) Importance(*HIGH) Pty(*HIGH)
Enddo
Enddo
Código
en formato texto
Fecha Junio 2006
Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.Envianoslo
y si resulta seleccionado te enviaremos un vale de Amazon
por valor de 50$
|
