Nosotros tenemos creada una utilidad que consta de dos CMD. SETACTPGM y CHKACTPGM. Al primero se le pasan tres par�metros: Nombre del programa, Pantalla (opcional) y *ON o *OFF. Si se llama con *ON graba en un fichero el nombre del programa y pantalla o si se llama con *OFF lo elimina del fichero. El nombre de pantalla es opcional para poder hacer que un programa est� activo para todo el mundo o si se informa la pantalla, para que el usuario que lo ha lanzado (normalmente en batch) no pueda lanzarlo m�ltiples veces. El mandato CHKACTJOB devuelve si est� activo el programa pasado como par�metro.
Lo llevamos utilizando hace bastantes a�os sin problemas. Si ves que te puede valer te hago llegar los fuentes. Vicente Garc�a Valero Departamento de sistemas Cer�mica SALONI S.A. [EMAIL PROTECTED] > -----Mensaje original----- > De: Establiments Vidal [SMTP:[EMAIL PROTECTED] > Enviado el: lunes, 24 de febrero de 2003 9:41 > Para: [EMAIL PROTECTED] > Asunto: Re: IF ACTIVE ..... > > Hola: > > Tienes que hacerlo mediante ALCOBJ i DLCOBJ (creo que no hay otra manera) > . > ----- Original Message ----- > From: "Enrique" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Saturday, February 22, 2003 2:42 AM > Subject: Re: IF ACTIVE ..... > > > > Explicame a nivel de detalle para poder comprender > > bien lo que pretendes hacer. > > > > As� harmamos algo que se ahustes a tu necesidades. > > > > Enrique > > --- j_losada losada <[EMAIL PROTECTED]> wrote: > > > Buenas noches foro, > > > > > > tal vez alguno de la vieja escuela (sist. 36) me > > > pueda ayudar en el AS/400, > > > necesito hacer una CL que haga en si lo que en RPG > > > II se controlaba con un > > > IF ACTIVE. > > > Es decir, tengo un trabajo (ej.: AAAA) que ha de > > > estar permanente activo, en > > > caso de que falle por alguna causa se ha de arrancar > > > automaticamente con un > > > mandato (ej.: XXXX) > > > Esto en RPG II sobre sist. 36 se podia controlar con > > > un procedimiento del > > > tipo: > > > > > > INICIO TAG > > > IF ACTIVE AAAA GOTO FIN > > > XXXX > > > FIN TAG > > > GOTO INICIO > > > > > > Mas o menos,... no se si me explico, pues bien, como > > > lo hariais con una CL? > > > > > > Gracias a todos > _____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. � Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
