UDATE no cambia con la fecha del sistema, es la fecha de inicio del trabajo, en su lugar debes usar TIME.
Saludos
Jes�s Humberto Olague Alcal�
L�der de Proyectos
Envases y Tapas Modelo, S.A. de C.V.
e-mail: [EMAIL PROTECTED]
Tel: (478) 985 4100 Ext. 247
Fax: (478) 985 4100 Ext. 249
"ajut 400"
<[EMAIL PROTECTED]> Para: [EMAIL PROTECTED]
Enviado por: cc:
forum.help400-request@ Asunto: Extra�o comportamiento
de *SRVPGM
combios.es con UDATE
22/11/2002 11:40
Por favor, responda a
forum.help400
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
_________________________________________________________________
�nete al mayor servicio mundial de correo electr�nico:
http://www.hotmail.com
(See attached file: testcl.txt)(See attached file: testudate.txt)
--------------------------------------------------------------------------
" Este mensaje es confidencial. Si usted no es el destinatario de este
mensaje, le suplicamos se lo notifique al remitente mediante un correo
electr�nico y que borre el presente mensaje y sus anexos de su computadora
sin retener copia de los mismos. No debe copiar este mensaje o usarlo para
cualquier prop�sito ni divulgar su contenido. Muchas gracias.
This e-mail is confidential and may also be privileged. If you are not the
intended recipient please immediately advise the sender by reply e-mail and
delete this message and its attachments from your computer without
retaining a copy. You should not copy it or use it for any purpose nor
disclose its contents to any other person. Thank you. "
testcl.txt
Description: Binary data
testudate.txt
Description: Binary data
