Yo lo que tengo funcionando es:
/* */
/* EJECUTA EL PGM PROGRAMA SI NO ESTA BLOQUEADO */
/* REGISTRO, S.A. */
/* */
ALCOBJ OBJ((BIBLIOTECA/PROGRAMA *PGM *EXCL *FIRST))
MONMSG MSGID(CPF1002) EXEC(DO)
CLRPFM FILE(BIBLIOTECA/FSPOOL)
WRKOBJLCK OBJ(BIBLIOTECA/PROGRAMA) OBJTYPE(*PGM) +
OUTPUT(*PRINT)
CPYSPLF FILE(QPDSPOLK) TOFILE(BIBLIOTECA/FSPOOL) +
SPLNBR(*LAST)
CALL PGM(BIBLIOTECA/PSPOOL) /* PGM QUE MUESTRA QUIEN
BLOQUEA EL OBJETO */
GOTO CMDLBL(FIN)
ENDDO "
Espero que te sirva
> 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
> ------------ próxima parte ------------
> Se ha borrado un adjunto en formato HTML...
> URL: <
> http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20130606/9faba90e/attachment.htm
> >
> ------------ próxima parte ------------
> A non-text attachment was scrubbed...
> Name: no disponible
> Type: image/png
> Size: 16038 bytes
> Desc: no disponible
> URL: <
> http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20130606/9faba90e/attachment.png
> >
>
> ------------------------------
>
> __________________________________________________
> Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
> &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
>
> Fin de Resumen de Forum.help400, Vol 80, Envío 9
> ************************************************
>
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
