Ok,

Gracias a todos.

 

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 Juan Carlos
Paredes
Enviado el: martes, 08 de abril de 2008 16:36
Para: forum.help400
Asunto: RE: contestar mensaje automáticamente o ignorar

 

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&amp;#225;s de NEWS/400.
&amp;#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&amp;#225;s de NEWS/400.
&amp;#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

Responder a