Yo hago lo siguiente:
PGM
DCL VAR(&FECHA) TYPE(*CHAR) LEN(6)
DCL VAR(&DMA) TYPE(*CHAR) LEN(8)
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&FECHA)
CVTDAT DATE(&FECHA) TOVAR(&DMA) +
FROMFMT(*DMY) TOFMT(*DMYY) TOSEP(*NONE)
ENDPGM
Espero te sirva saludos,
Hector Vera
-----Mensaje original-----
De: Noem� Bajo [mailto:[EMAIL PROTECTED]]
Enviado el: Viernes, 22 de Marzo de 2002 06:21 a.m.
Para: forum help 400
Asunto: Recuperar fecha
Hola:
�C�mo puedo recuperar en una CL la fecha de hoy, en una variable
Char(8)?
Gracias, Noem�.
_____________________________________________________
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]?body=LEAVE
