¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Controlador de Comunicación y aviso

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$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049