No es necesario que añadas y elimines cada vez la respuesta automática.
Simplemente con hacer:
PGM PARM(&SPLNAM)
/* Declaramos variable usurario que ejecuta */
DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
DCL VAR(&USE) TYPE(*CHAR) LEN(10)
DCL VAR(&NBR) TYPE(*CHAR) LEN(6 )
DCL VAR(&SPLNAM) TYPE(*CHAR) LEN(10)
DCL VAR(&RPYL) TYPE(*CHAR) LEN(10)
RTVJOBA JOB(&JOB) USER(&USE) NBR(&NBR) INQMSGRPY(&RPYL)
CHGJOB INQMSGRPY(*SYSRPYL)
CPYSPLF FILE(&SPLNAM) TOFILE(QTEMP/RECIBIS) +
JOB(&NBR/&USE/&JOB) SPLNBR(*LAST)
DLTSPLF FILE(&SPLNAM) JOB(&NBR/&USE/&JOB) SPLNBR(*LAST)
DLTSPLF FILE(QPDSPJOB) JOB(&NBR/&USE/&JOB) +
SPLNBR(*LAST)
CHGJOB INQMSGRPY(&RPYL)
hubiera sido suficiente.
Saludos.
Juan Carlos.
________________________________
De: Paco [mailto:[EMAIL PROTECTED]
Enviado el: martes, 08 de abril de 2008 16:05
Para: 'forum.help400'
Asunto: RE: contestar mensaje automáticamente o ignorar
Gracias, compañeros solucionado
Aunque le he tenido que añadir otra linea mas.
PGM PARM(&SPLNAM)
/* Declaramos variable usurario que ejecuta
*/
DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
DCL VAR(&USE) TYPE(*CHAR) LEN(10)
DCL VAR(&NBR) TYPE(*CHAR) LEN(6 )
DCL VAR(&SPLNAM) TYPE(*CHAR) LEN(10)
RTVJOBA JOB(&JOB) USER(&USE) NBR(&NBR)
/* Carga Fichero de datos Produccion Para envio de correo
*/
DLTF FILE(QTEMP/RECIBIS)
MONMSG MSGID(CPF0000)
CRTPF FILE(QTEMP/RECIBIS) RCDLEN(256)
ADDRPYLE SEQNBR(100) MSGID(CPA3311) RPY('G')
CHGJOB INQMSGRPY(*SYSRPYL)
CPYSPLF FILE(&SPLNAM) TOFILE(QTEMP/RECIBIS) +
JOB(&NBR/&USE/&JOB) SPLNBR(*LAST)
DLTSPLF FILE(&SPLNAM) JOB(&NBR/&USE/&JOB) SPLNBR(*LAST)
DLTSPLF FILE(QPDSPJOB) JOB(&NBR/&USE/&JOB) +
SPLNBR(*LAST)
RMVRPYLE SEQNBR(100)
Saludos
Paco Medina
Dtor.Informatica
Exclusivas Camacho, S. Ltd.
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
29006 Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[EMAIL PROTECTED]
Este mensaje se dirige exclusivamente a su destinatario y puede
contener información privilegiada o confidencial. Si no es vd. el destinatario
indicado, queda notificado de que la utilización, divulgación y/o copia sin
autorización está prohibida en virtud de la legislación vigente. Si ha recibido
este mensaje por error, le rogamos que nos lo comunique inmediatamente por esta
misma vía y proceda a su destrucción. Gracias.
This message is intended exclusively for its addressee and may contain
information that is CONFIDENTIAL and protected by professional privilege. If
you are not the intended recipient you are hereby notified that any
dissemination, copy or disclosure of this communication is strictly prohibited
by law. If this message has been received in error, please immediately notify
us via e-mail and delete it. Thank you.
________________________________
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Marti Riera
Enviado el: martes, 08 de abril de 2008 13:01
Para: forum.help400
Asunto: Re: contestar mensaje automáticamente o ignorar
A ver Paco,
Ya te han contestado antes, pero por si acaso:
1. Crear la respuesta por omision.
2. Al lanzar el trabajo (SBMJOB) o si es tu pantalla (CHGJOB) debes
asignarle al parametro INQMSGRPY el valor *SYSRPYL
Eso lo que hara que los trabajos que tengan ese parametro activado
utilizen la respuesta de la lista de mensajes que has creado en el punto 1.
En caso de dudas tambien puedes pulsar F1 (ayuda) donde se explica
mejor todo este proceso.
Otra cosa que te pueda fallar es que la definicion de la respuesta este
mal hecha.
Suerte !!
2008/4/8, Paco <[EMAIL PROTECTED]>:
Hecho se me para para que le de intro , y lo que quiero es
que el operario no tenga que darle ni parada ni intro.
Saludos
Paco Medina
Dtor.Informatica
Exclusivas Camacho, S. Ltd.
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
29006 Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[EMAIL PROTECTED]
Este mensaje se dirige exclusivamente a su destinatario y puede
contener información privilegiada o confidencial. Si no es vd. el destinatario
indicado, queda notificado de que la utilización, divulgación y/o copia sin
autorización está prohibida en virtud de la legislación vigente. Si ha recibido
este mensaje por error, le rogamos que nos lo comunique inmediatamente por esta
misma vía y proceda a su destrucción. Gracias.
This message is intended exclusively for its addressee and may contain
information that is CONFIDENTIAL and protected by professional privilege. If
you are not the intended recipient you are hereby notified that any
dissemination, copy or disclosure of this communication is strictly prohibited
by law. If this message has been received in error, please immediately notify
us via e-mail and delete it. Thank you.
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#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
--
Martí Riera
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#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
