Como dejo el grupo No trabajo mas en AS400

El martes, 2 de octubre de 2018, Javier Mora <[email protected]> escribió:

> Si no recuerdo mal, con
>
>
>
> CHGJOB INQMSGRPY(*SYSRPYL)
>
>
>
> Hará uso de la lista de respuestas del sistema.
>
>
>
> *De:* [email protected] [mailto:
> [email protected]] *En nombre de *Juan Gutierrez
> Ruiz
> *Enviado el:* martes, 2 de octubre de 2018 15:27
> *Para:* forum.help400; [email protected]
> *Asunto:* Monitoreo de mensajes
>
>
>
> Buenos días Foro
>
> solicitando nuevamente su ayuda
>
>
>
>
>
> Realice un programa RPGLESQL en donde eliminó algunos campos vacíos de una
> tabla
>
> a través de un ALTER TABLE (comando de SQL) , son varias Campos dependiendo
>
> del valor de la columna
>
> sin embargo cada que ejecuta la instrucción  en el rpg me envia un mensaje
> de :
>
>
>
> Cambiar archivo TACUMHEX puede provocar que se pierdan datos. (C I)
>
>
>
> y quiero poner por default la respuesta "I"
>
>
>
> el programa lo tengo dentro de un programa CL
>
> CALL       PGM(ADAM/NS4600DEP2)
>
> MONMSG     MSGID(CPA32B2)
>
>
>
> monitoreando el mensaje que me emite
>
>
>
> este mensaje lo he puesto en WRKRPYLE en la secuencia 50
>
>
>
>
>
>
>
> Trabajar con Entradas de Lista Respuestas del Sistema
>
>
>
>        Número   ID
>
> Opc  secuencia  mensaje  Respuesta   Valor Compar.
>
>            1    RNQ0211  *DFT        *NONE
>
>           10    CPA0700  D           *NONE
>
>           20    RPG0000  D           *NONE
>
>           30    CBE0000  D           *NONE
>
>           40    PLI0000  D           *NONE
>
>           50    CPD32B2  I           *NONE
>
>
>
> sin embargo no me funciona
>
> o no lo toma en cuenta el programa CL
>
>
>
> mi pregunta es como puedo controlar el mensaje para que el usuario no lo
> responda
>
>
>
> mucas gracias de antemano a todos
>
> saludos
>
>
>
>
>
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a