ajunto ejemplo que estoy usando..chequea q no se ejecute mas de una vez el
batch..(.que es ejecutado por un interactivo)..
------------------------------------------------------------------------------
Este es el interactivo que ejecuta el smbjob EL ST69E:
PGM
ALCOBJ OBJ((ST69E *PGM *EXCL)) WAIT(0)
MONMSG MSGID(CPF1002 CPF1085) EXEC(GOTO CMDLBL(SALE))
DLCOBJ OBJ((ST69E *PGM *EXCL))
SBMJOB CMD(CALL PGM(ST69E)) JOB(ST69E) +
JOBQ(QGPL/QBATCH1) LOGCLPGM(*NO)
SALE:
ENDPGM
------------------------------------------------------------------------
El bacth
PGM
ALCOBJ OBJ((ST69E *PGM *EXCL))
(ACA HACES LO QUE QUIERAS........)
ENDPGM
------------------------------------------------------------------------------------------
El 6 de junio de 2013 03:27, Vicente Aliaga | Silomar
<[email protected]>escribió:
> Create una area de datos ****
>
> ** **
>
> El programa A comprueba si tiene valor el área de datos no deja Ejecutar
> el programa B, en caso contrario,****
>
> el programa A que llama al B modifica el área de datos con
> USER/DSP/FECHA/HORA concatenado como auditoria****
>
> ** **
>
> Después de volver de B el programa A deja en blanco el Área de datos.****
>
> ** **
>
> Es una idea de bloqueo.****
>
> ** **
>
> Problema: si te apagan la pantalla estando en B se queda el valor ultimo
> en el Área de datos, y la tienes que borrar a mano ****
>
> O en un proceso SCDE cuando quieras limpiarla.****
>
> ** **
>
> Imagino que habrá algún CHK_PGM_ACT o algo parecido que interrogue con
> API’s si esta ejecutándose, pero no lo he encontrado.****
>
> ** **
>
> Un saludo****
>
> ** **
>
> P *No lo imprima si no es necesario. Protejamos el medio ambiente.***
>
> Este mensaje y sus archivos adjuntos pueden contener información
> confidencial y están dirigidos exclusivamente a su destinatario. Le
> informamos que la legislación vigente prohíbe el uso, divulgación o copia
> del contenido del presente mensaje por persona distinta del destinatario
> sin autorización previa. Si Ud. no es el destinatario de este mensaje y lo
> ha recibido por error le agradeceríamos que nos lo comunicara y que
> procediera a destruirlo. This message can contain confidential information
> and is directed exclusively to its adressee. We inform you that the
> legislation prohibits to use, spreading or copy the content of the present
> message by person different from the adressee without previous
> authorization. If you are not the adressee of this message or you have
> received it by error we would be thankful if you notify us and delete it.*
> ***
>
> ** **
>
> ** **
> ------------------------------
>
> *De:* [email protected] [mailto:
> [email protected]] *En nombre de *Bernabé Estrada
> *Enviado el:* jueves, 06 de junio de 2013 0:30
> *Para:* 'forum.help400'
> *Asunto:* RE: programa en as400****
>
> ** **
>
> Por el momento se me ocurre la alternativa de la vieja escuela:****
>
> El programa bloquea un archivo (alcobj), o un registro(chain a un archivo
> de update), o graba algo al iniciar, luego se ejecuta, y al finalizar,
> desbloquea lo bloqueado.****
>
> Por consiguiente, al ejecutarse nuevamente, e intentar bloquear, y no
> pueda, simplemente es que alguien mas lo esta ejecutando.****
>
> ** **
>
> Saludos.****
>
> ** **
>
> *De:* [email protected] [mailto:
> [email protected]] *En nombre de *Peñaherrera Ruiz,
> Mauro Arturo
> *Enviado el:* miércoles, 05 de junio de 2013 03:54 p.m.
> *Para:* forum.help400
> *Asunto:* programa en as400****
>
> ** **
>
> Necesito controlar de un programa se ejecute sola una vez al mismo tiempo.
> ****
>
> ** **
>
> Hay algún parámetro en el Os400 o hay una API o se debe realizar
> programación .****
>
> ** **
>
> En espera de sus comentarios.****
>
> ** **
>
> ** **
>
> Saludos cordiales,****
>
> * *
>
> *Mauro Peñaherrera *
>
> Dpto.de Tecnología | Diseño y Entrega de Servicios | Especialista de
> Construcción****
>
> ** **
>
> ** **
>
> +593 (2) 298 1300 ext. 2769 | [email protected] ***
> *
>
> Av. Amazonas 4560 y Pereira | Ed. Banco Amazonas, Piso 1 | Quito – Ecuador
> ****
>
> ** **
>
> Diners Club del Ecuador – Sociedad Financiera ****
>
> ** **
>
> [image: DC-DIS-INTER-VIS-MAST]****
>
> ** **
>
> *[AR]:* Acción requerida - *[RR]:* Respuesta requerida - *[SL]:* Sólo
> lectura - *[SPTI]:* Sólo para su información****
>
> ** **
>
> El presente correo ha sido enviado con una codificación en el campo
> "Asunto", que le permitirá optimizar su tiempo de atención y gestión del
> mismo. Por favor responda haciendo uso de la misma codificación. Gracias
> por su atención.****
>
> ** **
>
> ** **
> ------------------------------
>
> En Diners Club cuidamos el planeta; REDUCIMOS, RECICLAMOS Y REUTILIZAMOS
> los recursos que usamos.
>
> Nota de descargo: La información contenida en este e-mail y sus anexos es
> confidencial y sólo puede ser utilizada por el destinatario del mismo. Esta
> información no debe ser distribuida, ni copiada total o parcialmente por
> ningún medio sin la autorización de DINERS/INTERDIN. Además,
> DINERS/INTERDIN no asume responsabilidad sobre información, opiniones o
> criterios contenidos en este e-mail.
>
> Disclaimer: The information contained in this e-mail and its attached
> files are confidential and intended only for the use of the person to which
> it is addressed. This information can not be totally or partially
> distributed nor copied by any media without the authorization from
> DINERS/INTERDIN. In addition, DINERS/INTERDIN does not assume
> responsibility about this information, opinions or criteria contented in
> this e-mail.****
>
> ____________________________________________________
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>
<<image003.gif>>
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
