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.
