Hola, hola:
Porque no usas SNDBRKMSG este permite manejar mejor (creo) este tipo de situaci�n.
Saludos.
El d�a 27/05/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> escribi�:
Hola. dos opciones posibles son:
IF COND(&tim *NE 'SI') THEN(GOTO CMDLBL(FIN))
o rellenar el par�metro'valor de respuesta por omisi�n' *DFT del SNDUSRMSG para que cuando le den al intro no se quede parado.
"Salva" <[EMAIL PROTECTED] >
Enviado por: [EMAIL PROTECTED] 27/05/05 16:37
[email protected]
<[email protected]> Re: [Help400] Envio de mensajes
Me podr�a servir pero tengo la pega de que si al enviar el sndusrmsg pulsamos F3 � F12, la sesi�n se queda bloqueada indicando 'Est� esper�ndose una respuesta al mensaje en la cola de mensajes xxxxxxx'.�Teno entonces que entrar por otra sesi�n a la cola de mensajes y dar una respuesta �Se podr�a controlar estas teclas de funci�n?
Gracias.
----- Original Message -----
From: [EMAIL PROTECTED]
To: [email protected]
Sent: Friday, May 27, 2005 11:44 AM
Subject: Re: [Help400] Salvar valores del sistema y usuarios
A ver si te sirve algo as�:
DCL VAR(&DSP) TYPE(*CHAR) LEN(10)
DCL VAR(&TIM) TYPE(*CHAR) LEN(6)
RTVJOBA JOB(&DSP)
CHGMSGQ MSGQ(&DSP) DLVRY(*BREAK)
SNDUSRMSG MSG('Informar la hora para realizar copias +
(6 digitos numericos) ') TOMSGQ(&DSP) +
MSGRPY(&TIM)
RMVMSG MSGQ(&DSP) CLEAR(*ALL)
"Salva" <[EMAIL PROTECTED] >
Enviado por: [EMAIL PROTECTED] 27/05/05 10:45
[email protected]
<[email protected]> Re: [Help400] Salvar valores del sistema y usuarios
Muy buenas,
Tengo un programa CL que llegado un momento env�a 'SNDUSRMSG MSG('Introduce el nombre completo:') MSGRPY(&RESP)'. Cada vez que se llama al programa y llega a ejecutar esta instrucci�n, me solicita que introduzca la respuesta pero me muestra antes todos los SNDUSRMSG emitidos. Es decir primero me muestra el historial de mensajes y respuestas emitidas anteriormente y luego me aparece el mensaje �ltimo emitido esperando respuesta.
Mi pregunta es, �C�mo puedo dejar la pantalla en l�mpio antes de emitir el SNDUSRMSG?.
Espero que se entienda la pregunta.
Gracias.
--
Marti Riera
