Hola, yo utlizo un campo de 14 y la instrucci�n TIME.
D ffwrk s d datfmt(*eur) * D ds inz D fecha 1 14 0 D cthrw 1 6 0 D horw 1 2 0 D minw 3 4 0 D segw 5 6 0 D ctdal1 7 8 0 D ctmal1 9 10 0 D ctaal1 11 14 0 * D ds inz D wrk14n 1 14 0 D cthrs 1 6 0 D hor 1 2 0 D min 3 4 0 D seg 5 6 0 D ctdal 7 8 0 D ctmal 9 10 0 D ctaal 11 14 0 ... C time wrk14n * Hasta las 06:00 AM se considera dia anterior. C hor iflt 6 C move wrk14n ffwrk C subdur 1:*days ffwrk C move ffwrk fecha Adem�s as� respeto la fecha del turno anterior. Un saludo JCA -----Mensaje original----- De: Juan Carlos Paredes [mailto:[EMAIL PROTECTED] Enviado el: mi�rcoles 12 de mayo de 2004 18:58 Para: '[EMAIL PROTECTED]' Asunto: RE: fecha del sistema Efectivamente, tienes raz�n, Jes�s, es m�s r�pido. Lo que ocurre es que yo no sab�a que TIME te devolv�a la fecha del sistema. La verdad es que nunca lo utilizo (suelo usar la funci�n %DATE, porque ahora lo hago todo en ILE) y pens� que actuar�a igual que el UDATE o el *DATE. Por eso hab�a pensado que, si el programa era OPM, podr�a recuperarse del valor del sistema. Saludos. Juan Carlos. > -----Mensaje original----- > De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED] > Enviado el: mi�rcoles, 12 de mayo de 2004 18:49 > Para: [EMAIL PROTECTED] > Asunto: RE: fecha del sistema > > > Mmmmm, aqui estamos hablando de cosas diferentes. > > De hecho yo estaba equivocado, en RPG OPM puedes utilizar UDATE o *DATE > (no > es QDATE) para obtener la fecha del trabajo, tu estas hablando de CL y > obteniendo el valor del sistema QDATE. > > UDATE equivale a RTVJOBA DATE(Variable) > > En todo caso siguiendo tu ejemplo, desde RPG necesitarias llamar a un > programa CL cada vez que desees obtener la fecha del sistema sin embargo > obtienes el mismo valor desde RPG utilizando TIME y sin llamar a > subprogramas. > > TIME equivale a utilizar dos comandos de CL, RVSYSVAL SYSVAL(QDATE)y > RVSYSVAL SYSVAL(TIME) en un solo paso. > > 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 > > > > > > Juan Carlos Paredes > > <[EMAIL PROTECTED]> Para: > "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]> > > Enviado por: cc: > > forum.help400-request Asunto: RE: fecha del > sistema > @combios.es > > > > > > 12/05/2004 11:29 a.m. > > Por favor, responda a > > forum.help400 > > > > > > > > > > �Seguro Jes�s? Si yo llamo a un CL que recupere el valor de sistema con > RVSYSVAL SYSVAL(QDATE), �est�s seguro de que me devolver�a la del trabajo? > > Saludos. > > Juan Carlos. > > > -----Mensaje original----- > > De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED] > > Enviado el: mi�rcoles, 12 de mayo de 2004 18:24 > > Para: [EMAIL PROTECTED] > > Asunto: RE: fecha del sistema > > > > > > Una precision solamente. En OPM, QDATE te da la fecha del trabajo (la > > misma > > que *DATE), en cambio TIME te da la fecha del sistema. > > > > 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 > > > > > > > > > > > > Juan Carlos Paredes > > > > <[EMAIL PROTECTED]> Para: > > "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]> > > > > Enviado por: cc: > > > > forum.help400-request Asunto: RE: fecha > del > > sistema > > @combios.es > > > > > > > > > > > > 12/05/2004 11:13 a.m. > > > > Por favor, responda a > > > > forum.help400 > > > > > > > > > > > > > > > > > > > > Por lo que veo en el manual de referencia de RPG, el valor *date te > > devuelve > > la fecha del sistema de cuando arranc� el trabajo. > > > > Utiliza la funci�n incorporada %date si es un programa ILE. Si no, > podr�as > > recuperar el valor de sistema QDATE. > > > > Saludos. > > > > Juan Carlos. > > > -----Mensaje original----- > > > De: Carlos Lara [SMTP:[EMAIL PROTECTED] > > > Enviado el: mi�rcoles, 12 de mayo de 2004 18:02 > > > Para: [EMAIL PROTECTED] > > > Asunto: fecha del sistema > > > > > > > > > > > > Necesito grabar la fecha y hora en cada registro , y a pesar de > > utilizar > > > el *date , en el cambio de dia me > > > > > > mantiene la fecha del dia anterior hasta que se cierra y abre el > > programa. > > > Alguna pista? > > > > > > > > > > > > Gracias > > > > > > > > > > > > > _____________________________________________________ > > 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] > > > > > > > > > > > > > > > -------------------------------------------------------------------------- > > > > > > > > > > " 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. " > > > > > > > > > > > > > > > > > > > -------------------------------------------------------------------------- > > > > > > > > " 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. " > > > > > > > > > > _____________________________________________________ > > 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] > > _____________________________________________________ > 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] > > > > > > > -------------------------------------------------------------------------- > > > > > " 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. " > > > > > > > > > -------------------------------------------------------------------------- > > > > " 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. " > > > > > _____________________________________________________ > 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] _____________________________________________________ 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] _____________________________________________________ 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]
