Hola Jorge:
Efectivamente, a partir de V5R4 este "gran" mandato deja de funcionar. Tengo
pendiente estudiar todo lo relacionado con la interrupución de trabajos de esta
versión:
API QWCJBITP
Valor del sistema QALWJOBITP
Punto de salida QIBM_QWC_JOBITPPGM
Como no entiendo como funciona el sistema de interrupción todavía no me he
atrevido a arreglar el programa. Estoy muy interesado en adaptar la utilidad
pero no tengo mucho tiempo.
Un saludo,
Javier Mora
________________________________
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Jorge
Jiménez Gutiérrez
Enviado el: jueves, 17 de julio de 2008 13:00
Para: [email protected]
Asunto: RUNJOBCMD
Dispongo del programa RUNJOBCMD (gentiliza de David Ong y adaptado por
Javier Mora García), aprovecho para darles las gracias por su colaboración.
Desde la versión 5.4, tengo entendido que se ha anulado el parámetro
EXITPGM del comando TRCJOB, donde se invocaba al programa RUNJOBCMDR,
y he leído que en lugar del comando TRCJOB se ha de utilizar el API
QWCJBITP, pero no sé qué modificaciones tengo que hacer en la CL porque
desconozco el funcionamiento de las API's y los EXITPGM del Sistema. Les
agradezco la ayuda.
Extracto del CL RUNJOBCMDC
/* Interrumpe el trabajo receptor y se ejecuta el mandato en aquel. */
STRSRVJOB JOB(&JOBNO/&USER/&JOBNAME)
TRCJOB SET(*ON) TRCTYPE(*FLOW) MAXSTG(1024) +
EXITPGM(RUNJOBCMDR)
Este correo electrónico contiene información privada y estrictamente
confidencial. Si usted no es el destinatario del presente mensaje no está
autorizado a leerlo, retenerlo o difundirlo. Si usted ha recibido este mensaje
por error, le rogamos lo comunique al remitente y borre dicho mensaje y
cualquier documento adjunto que pudiera contener.
This e-mail is privileged, confidential and contains private
information. Any reading, retention, distribution or copying of this
communication by any person other than its intended recipient is prohibited. If
you receive this message by mistake, please inform the sender and delete the
message and attachments from your system.
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© 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
