Ampliando un poco mas el tema.
Joan tiene razon en su apreciacion, pero valdria aclarar que lo mismo
sucede con las subpartes de *DATE (*YEAR, *MONTH y *DAY). Cabe precisar
tambien que UDATE es equivalente a *DATE, UYEAR equivale a *YEAR, etc.
Por otra parte, tanto la fecha del sistema como la del trabajo y sus
subpartes pueden obtenerse de varias formas, para la fecha del sistema se
puede utilizar TIME o la SDS, posiciones de la 276 a 281 (como bien indica
Antonio en un mensaje previo); para la fecha del trabajo se utiliza MOVE o
la SDS, posiciones de la 270 a 275. Para los dos primeros digitos del a�o
de la fecha del trabajo se utiliza la SDS en sus posiciones 199 a 200.
Con TIME se obtiene tanto la fecha como la hora actual, el formato de fecha
esta determinado por el valor del sistema QDATFMT y puede ser YMD, MDY, DMY
o juliano (en mi caso el formato es YMD).
El tama�o de la variable de retorno determina el resultado a obtener, de
acuerdo a tres supuestos:
Longitud
Variable Resultado
________
_____________________________________________________________________________
6 Hora del sistema (hhmmss)
12 Hora del sistema + fecha con a�o a dos digitos (hhmmssyymmdd)
14 Hora del sistema + fecha con a�o a cuatro digitos
(hhmmssyyyymmdd)
El ejemplo que envie previamente, complementado para ejemplificar la
relacion con QDATFMT:
I DS
I 1 140TIMSYS
I 1 60HORSYS
I 7 140FECSYS
I 1 20$@HORA
I 3 40$@MIN
I 5 60$@SEG
I**** Fecha en formato YMD (siempre que QDATFMT = YMD)
I 7 100$@A�O
I 11 120$@MES
I 13 140$@DIA
I**** Fecha en formato Juliano (siempre que QDATFMT = JUL)
I 7 100$@A�O
I 11 130$@DIA
I 14 140$@CERO
C TIME TIMSYS
Si este programa se ejecuta el dia 3 de enero de 2002 a las 10:45:23 los
resultados para ambos casos serian:
Si QDATFMT = YMD TIMSYS <- 10452320020103
HORSYS <- 104523
FECSYS <- 20020103
Si QDATFMT = JUL TIMSYS <- 10452320020030
HORSYS <- 104523
FECSYS <- 20020030
Espero que esto sirva de algo.
Saludos.
Jesus H. Olague A.
"Llobet Galtes, Joan" <[EMAIL PROTECTED]>@combios.es on 04/03/2002
02:55:36 AM
Please respond to [EMAIL PROTECTED]
Sent by: [EMAIL PROTECTED]
To: "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>
cc:
Subject: RE: Fecha del sistema desde RPGIII
Como curiosidad, la fecha del trabajo dentro de un programa RPG, o sea
*DATE, facilita la fecha (del trabajo no del sistema) en que se ha iniciado
el programa, o sea que si tenemos un programa activo durante varios dias,
siempre obtendremos la fecha en que se inicio el programa, no la actual
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Enviado el: viernes 1 de marzo de 2002 20:14
Para: [EMAIL PROTECTED]
Asunto: Re: Fecha del sistema desde RPGIII
Andoni.
I DS
I 1 140TIMSYS
I 1 60HORSYS
I 7 140FECSYS
I 1 20$@HORA
I 3 40$@MIN
I 5 60$@SEG
C TIME TIMSYS
Con esto obtendras la fecha del sistema en tiempo de ejecucion y no
la del trabajo.
Saludos.
Jesus H. Olague Alcala
"Andoni (Infonegocio)" <[EMAIL PROTECTED]>@combios.es on
01/03/2002 12:34:09 PM
Please respond to [EMAIL PROTECTED]
Sent by: [EMAIL PROTECTED]
To: "Foro AS/400" <[EMAIL PROTECTED]>
cc:
Subject: Fecha del sistema desde RPGIII
Hola;
�Alguien sabe si desde un programa RPGIII se puede recuperar la fecha del
sistema?.
No la fecha del trabajo, eh!!
Gracias.
--
Andoni <[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]?bodyLEAVE
_____________________________________________________
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
_____________________________________________________
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]?bodyLEAVE
_____________________________________________________
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
