Hola,
Si la intención de todo esto es únicamente descubrir si un trabajo esta
activo, yo lo que suelo hacer es un CHGJOB
P.Ej. CHGJOB JOB(nombre del job) RUNPTY(50)
Si el trabajo no está activo devuelve un CPF1321 ... (y resuelto)
No es tan elegante como chequear con una API, etc pero me parece fácil
y efectivo.
Saludos,
Fernando Muru.
-----Mensaje original-----
De: [email protected]
[mailto:[email protected]] En nombre de José Luis Da
Silva Jara
Enviado el: miércoles, 14 de marzo de 2012 15:00
Para: 'Javier Mora'
CC: 'forum.help400'
Asunto: Grane Javier lo voy a probar y Gracias
Javier:
Grande tu aporte !!
Lo voy a armar y probar
Gracias
JOSE LUIS DA SILVA JARA
Buenos Aires - Argentina
-----Mensaje original-----
De: [email protected]
[mailto:[email protected]] En nombre de Javier Mora
Enviado el: miércoles, 14 de marzo de 2012 6:21
Para: forum.help400
Asunto: RE: Una pregunta sobre el reemplazo del ACTIVE-NOMJOB
Yo utilizo esta utilidad:
CHKACTJOB de cosecha propia. Incluyo los fuentes como adjuntos.
Un saludo.
Javier Mora
> -----Mensaje original-----
> De: [email protected]
> [mailto:[email protected]] En nombre de José
> Luis Da Silva Jara Enviado el: martes, 13 de marzo de 2012 14:55
> Para: 'forum.help400'
> Asunto: Una pregunta sobre el reemplazo del ACTIVE-NOMJOB
>
> Foreros:
>
> A mi entender lo mas util que tenian los OCL del Entorno del
> S/36 eran los controles de trabajos activos:
>
> // IF ACTIVE-APLOCUPR GOTO PRCACT
> // IF ACTIVE-FCESFM GOTO PRCACT
> // IF ACTIVE-FCW004C GOTO PRCACT
>
> De esta manera controlabamos si otro Sistema que nos podia afectar
> estaba corriendo en ese momento.
>
> Hay alguna manera de emular esto en CLP ? NO utilizando el ALCOBJ
> sobre una Base de Datos ?.
>
> Gracias
>
>
> JOSE LUIS DA SILVA JARA
> Departamento de Sistemas
> Laboratorios Bernabo S.A.
> Buenos Aires - Argentina
>
>
>
> AVISO DE CONFIDENCIALIDAD: La información aquí contenida y transmitida
> es CONFIDENCIAL y puede contener información amparada por el secreto
> profesional. Es para uso exclusivo del destinatario arriba indicado, y
> para su utilización específica. Si usted no es el destinatario, sepa
> disculpar la molestia. Se le notifica por el presente que está
> prohibida su revisión, retransmisión, difusión, y/o cualquier otro
> tipo de uso de la información contenida por personas extrañas al
> destinatario original.
> Si Ud. ha recibido por error esta información, por favor contacte al
> remitente y elimine la información aquí contenida de toda computadora
> donde resida.
> WARNING OF CONFIDENTIALITY: The information contained and transmitted
> here is CONFIDENTIAL and can contain information protected by the
> professional secret. It is for exclusive use of the addressee above
> indicated, and for his specific use.
> If you are not the addressee, we apologize for any inconvenience
> caused so far. It is hereby notified that it is prohibited to revise
> or broadcast or any other type of use of the information contained by
> people who are not the original addressee.
> If you have received this information by mistake, please contact the
> sender and eliminate the information contained here of all computers.
>
> Antes de imprimir este email piense bien si es realmente necesario.
> Before printing this email, assess if it is really needed.
>
> ____________________________________________________
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>
AVISO DE CONFIDENCIALIDAD: La información aquí contenida y transmitida
es CONFIDENCIAL y puede contener información amparada por el secreto
profesional. Es para uso exclusivo del destinatario arriba indicado, y
para su utilización específica. Si usted no es el destinatario, sepa
disculpar la molestia. Se le notifica por el presente que está prohibida
su revisión, retransmisión, difusión, y/o cualquier otro tipo de uso de
la información contenida por personas extrañas al destinatario original.
Si Ud. ha recibido por error esta información, por favor contacte al
remitente y elimine la información aquí contenida de toda computadora
donde resida.
WARNING OF CONFIDENTIALITY: The information contained and transmitted
here is CONFIDENTIAL and can contain information protected by the
professional secret. It is for exclusive use of the addressee above
indicated, and for his specific use. If you are not the addressee, we
apologize for any inconvenience caused so far. It is hereby notified
that it is prohibited to revise or broadcast or any other type of use of
the information contained by people who are not the original addressee.
If you have received this information by mistake, please contact the
sender and eliminate the information contained here of all computers.
Antes de imprimir este email piense bien si es realmente necesario.
Before printing this email, assess if it is really needed.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
