dcl &y *char 2 dcl &m *char 2 dcl &d *char 2 rtvsysval qyear (&y) rtvsysval qmonth(&m) rtvsysval qday(&D)
chgvar &now (&y || &m || &d) > -----Mensaje original----- > De: Noem� Bajo [SMTP:[EMAIL PROTECTED]] > Enviado el: Viernes, 22 de Marzo de 2002 08: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 La informacion contenida en este correo es para uso exclusivo de los destinatarios del mismo. Esta prohibido a las personas o entidades que no sean los destinatarios de este correo, realizar cualquier tipo de modificacion, copia o distribucion del mismo. Si Usted recibe este correo por error, tenga bien notificar al emisor y eliminarlo. _____________________________________________________ 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
