Si estas utilizando RPG-IV (ILE), existe la instrucci�n TEST y su formato es el siguiente:
CL0N01Factor1+++++++Operac&ExtFactor2+++++++Resultado+++++Lon++D+MaMeIg.. C *ISO TEST(D) XFECINI 31 En el Factor1 preguntas porque formato de Fecha (*ISO,*EUR, etc.) En Operaci�n la Instrucci�n TEST entre par�ntesis la letra D para indicar que es de Tipo DATE En el Factor 2 la Variable Num�rica de 8,0 (en el Ejemplo XFECINI) y en la Parte de los Indicadores por Menor (ME) pones tu indicador deseado (en el Ejemplo 31) Si el Indicador se enciende (1) el valor Num�rico en incorrecto para moverlo a una Variable tipo Fecha, de lo contrario si viene Apagado (0) el Valor num�rico es correcto y lo puedes mover a la Variable de tipo fecha. Es importante que cuando lo muevas a la Variable de tipo Fecha le indiques el formato de la Fecha a mover, por Ejemplo: C *ISO MOVE XFECINI FECHA donde FECHA esta definidad de Tipo DATE y con formato *ISO DNombre+++++++++ETDsDesde++A+/L+++IDc.Palabras Clave D FECHA s D DatFmt(*ISO) Espero y te sirva, porque no soy muy bueno para explicar. Saludos Ing. Alfonso Quintanar Monroy Analista Programador Gcia. Soluciones Operativas Corporativo de Inform�tica (CCIT) Grupo A.D.O., M�xico, D.F. Tel. 51331100 Exts. 4773, 4774 y 4796 ----- Original Message ----- From: <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Thursday, July 15, 2004 1:02 PM Subject: Reconocer fecha invalida Como saber si un valor de fecha en una variable de 8,0 numerica contiene un valor valido al moverlo a una variable tipo fecha de formato A�o-Mes-Dia. _____________________________________________________ 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]
