Re: Monitorizar cola de Mensajes

Thu, 30 Apr 2009 06:46:38 -0700 

Hola,

Yo uso la siguiente instruccion para leer los mensajes de interrogación:
          ...............
       /* Loop to read reply message of QSYSOPR queue */
 LOOP:
             DLYJOB     DLY(&DLY)
             CHGVAR     VAR(&MSGID) VALUE('       ')
             RCVMSG     MSGQ(QSYS/QSYSOPR) MSGTYPE(*INQ) WAIT(0) +
                          RMV(*NO) KEYVAR(&MSGMRK) MSG(&MSG) +
                          SECLVL(&SECLVL) MSGID(&MSGID) +
                          SENDER(&SENDER) SENDERFMT(*SHORT)
             IF         COND(&MSGID *EQ 'XXXXX') THEN(DO)

                         ...............

             ENDDO
             GOTO LOOP
          ...............

Saludos

Martí Riera


2009/4/30 <[email protected]>

>
>
>
>
> Hola a todos,
>
> Quiero monitorizar una cola de mensaje para tomar una serie de acciones
> cuando lleguen mensajes de gravedad igual o mayor que 80.
>
> Recoger los mensajes de una cola no es complicado . El problema se me
> complica cuando solo quiero recoger los nuevos.
>
>
> Se os ocurre alguna forma?
>
>
> Un saludo
>
>
> Jesús Mª Arzak Capilla
> Talleres de Escoriaza,S.A.(TESA)
> Dpto Proceso de Datos
>
> www.tesa.es
> ADVERTENCIA/WARNING
>
> ESTE CORREO ELECTRONICO CONTIENE INFORMACION PRIVADA Y
> ESTRICTAMENTE CONFIDENCIAL. Si usted no es el destinatario del
> presente mensaje no esta autorizado a leerlo, retenerlo, copiarlo o
> difundirlo. Ni esta empresa ni el remitente asume ninguna responsabilidad
> referente a la posible transmision de virus y es responsabilidad del
> receptor realizar un escaneo del mensaje y de sus anexos (si los hubiera) .
>
> THIS E-MAIL IS PRIVILEGED, CONFIDENTIAL AND CONTAINS PRIVATE
> INFORMATION. Any reading, retention, distribution or copying of this
> communication by any person other than its intended recipient is
> prohibited. Neither this company nor the sender accepts any responsibility
> for viruses and it is your responsibility to scan the email and attachments
> (if any) .
>
>
> __________________________________________________
> Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
> &amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>

__________________________________________________
Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
&amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400

Responder a