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.
