Sería algo así: ALCOBJ OBJ((*LIBL/archivo *FILE *EXCL)) WAIT(0) MONMSG MSGID(CPF0000) EXEC(DO) ...
El 6 de junio de 2013 00:29, Bernabé Estrada <[email protected]>escribió: > 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. > -- Atentamente. RP Director Técnico Tel. 93 255 31 51 Fax. 93 255 31 09
<<image001.png>>
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
