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 APIs 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 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.
<<image003.gif>>
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
