Hola Ajut400: La fecha del trabajo corresponde a la fecha en que se inici� dicho trabajo y es invariable durante toda su ejecuci�n, dicho valor se recupera en un programa RPG en las variables UDATE y *DATE.
Si lo que necesitas es recuperar la fecha del sistema deber�s hacerlo a trav�s de la instrucci�n TIME. Es un t�pico error de concepto, una cosa es la fecha del sistema y otra la fecha del trabajo, normalmente la que queremos utilizar es la primera pero solemos emplear las instrucciones que nos devuelven la fecha del trabajo supongo que por costumbre y por comodidad. Un saludo. Juanrix200 PD: No lo he podido resistir, al escribir "Hola Ajut400" me ha recordado la escena de la pel�cula 2.001 cuando el protagonista hablaba con "madre" el computador HAL9000 :-D ----- Original Message ----- From: ajut 400 <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, November 22, 2002 6:40 PM Subject: Extra�o comportamiento de *SRVPGM con UDATE > Hola a todos: > > Adjunto os envio un sencillo y simple programa de servicio y un CL, > suficiente para demostrar un problema que tambien se me da en otros *SRVPGM > mas complejos que estoy utilizando. > > El problema consiste en que una vez que el programa de servicio ha sido > activado (alguien lo llama) no refleja ningun cambio de fecha de sesi�n > mediante un CHGJOB JOB(*) DATE(ddmmaa) y como resultado de ello cualquier > referencia posterior a UDATE dentro de dicho programa de servicio toma como > valor la fecha de sesion inicial. > > Probar a ejecutarlo y vereis como el segundo y siguientes CHGJOB de fecha no > tiene efecto. > > El *SRVPGM TESTUDATE visualiza la fecha de la sesion UDATE en la funcion > DarFecha. > > EL CL TESTCL solicita un CHGJOB DATE(ddmmaa) y despues llama la funci�n > DarFecha. Para finalizar hay q pulsar F12 en CHGJOB. > > �alguna idea d como conseguir q el *SRVPGM se "entere" que se ha cambiado la > fecha de sesi�n? La opci�n de reprogramar el programa de servicio puede > resultarme muy costosa: tened en cuenta que esto es un ejemplo y los > verdaderos programas de servicio donde se da este programa son varios y > utilizados por cientos de programas... > > �alguna forma de descargar y volver a carga un *SRVPGM? �Como refrescarlo? > > Para compilar seguir los siguientes pasos: > > CRTRPGMOD MODULE(libl/TESTUDATE) SRCFILE(LIB/QRPGLESRC) > > CRTSRVPGM SRVPGM(libl/TESTUDATE) MODULE(libl/TESTUDATE) > > CRTCLMOD MODULE(libl/TESTCL) SRCFILE(libl/QCLLESRC) SRCMBR(TESTCL) > > CRTPGM PGM(libl/TESTCL) MODULE(libl/TESTCL) BNDSRVPGM(libl/TESTUDATE) > > Un saludo > -------------------------- > De todo sobre el AS/400 en > http://www.ajut400.com _____________________________________________________ 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]?body=LEAVE
