Gracias por las respuestas... lo que me indicais es correcto, pero insisto en que la fecha que necesito recuperar es la fecha de trabajo (UDATE o *DATE), cambiada por el usuario por un CHGJOB. La fecha del sistema no cambia ni quiero tener que cambiarla, asi que no me vale usar TIME.
Pero he encontrado una soluci�n: Modificar el *SRVPGM para que llame a un *PGM (TESTU) que recupera la fecha UDATE. Ya que este �ltimo se inicia y finaliza con *LR siempre toma el UDATE actualizado si se hubiese realizado un CHGJOB previo.
En la Hoja D de TESTUDATE a�adir�a esto:
d fecha s d
d FechaSesion pr EXTPGM('TESTU')
d fecha d
y la Hoja C quedar�a modificada as�:
c callp FechaSesion( fecha )
c eval Mensaje = %trim(Mensaje) + ' ' +
c %char( fecha )
El *PGM TESTU completo:
d fecha s d
c *entry plist
c parm fecha
c move udate fecha
c eval *inlr = *on
�"madre" tambien el doctor Sivasubramanian Chandrasegarampillai (Dr. Chandra) en Odisea 2010?
Un saludo.
--------------------------
De todo sobre el AS/400 en
http://www.ajut400.com
From: Juan Ram�n Garcia <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: <[EMAIL PROTECTED]>
Subject: RE: Extra�o comportamiento de *SRVPGM con UDATE
Date: Sat, 23 Nov 2002 10:23:41 +0100
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
.......... _________________________________________________________________ MSN. M�s �til Cada D�a http://www.msn.es/intmap/
_____________________________________________________ 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
