RE: Recuperar fecha

[Javier Jim�nez]

Hola Noem�, Yo lo tengo solucionado de esta manera, no se si es demasiada ortodoxa pero me funciona:   DCL������� VAR(&CTR)���� ���� TYPE(*CHAR) LEN(1) DCL������� VAR(&SIG)���� ���� TYPE(*CHAR) LEN(2) DCL������� VAR(&ANY)���� ��� TYPE(*CHAR) LEN(2) DCL������� VAR(&MES)��� ���� TYPE(*CHAR) LEN(2) DCL������� VAR(&DIA)���� ���� TYPE(*CHAR) LEN(2) DCL������� VAR(&SIGANY)� �� TYPE(*CHAR) LEN(4)   RTVSYSVAL� SYSVAL(QCENTURY) �� RTNVAR(&CTR) RTVSYSVAL� SYSVAL(QYEAR)��� ���� RTNVAR(&ANY) RTVSYSVAL� SYSVAL(QMONTH)�� �� RTNVAR(&MES) RTVSYSVAL� SYSVAL(QDAY)���� ����� RTNVAR(&DIA)   IF�������� COND(&CTR *EQ '0') THEN(DO)������ CHGVAR���� VAR(&SIG) VALUE(19)�������������� ENDDO��������������������������������������� �������������������������������������������� IF�������� COND(&CTR *EQ '1') THEN(DO)������ CHGVAR���� VAR(&SIG) VALUE(20)�������������� ENDDO��������������������������������������� ������������������������� ������������������� CHGVAR���� VAR(&SIGANY) VALUE(&SIG *CAT &ANY)   A partir de aqu� puedes concatenar con CHGVAR las variables &DIA, &MES y &SIGANY en una �nica variable de 8 posiciones.   Saludos y espero que te sirva de algo.   -----Mensaje original----- De: Noem� Bajo [mailto:[EMAIL PROTECTED]] Enviado el: viernes, 22 de marzo de 2002 12:21 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