Gracias Carlos : Ya me dijeron que tenía que definir el campo fecha como numérico de 8.
Saludos, Javier From: forum.help400-boun...@listas.combios.es [mailto:forum.help400-boun...@listas.combios.es] On Behalf Of Carlos C. Sent: martes, 20 de febrero de 2018 18:08 To: forum.help400 <forum.help400@listas.combios.es> Subject: Re: Código de operación TEST() El formato de fecha no concuerda. *iso = 2018mmdd *ymd = aammdd *dmy = ddmmaa *eur = ddmmaaaa Saludos ________________________________ From: forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es> <forum.help400-boun...@listas.combios.es<mailto:forum.help400-boun...@listas.combios.es>> on behalf of Javier Baca <javier.b...@bcndepot.com<mailto:javier.b...@bcndepot.com>> Sent: Tuesday, February 20, 2018 3:45 AM To: forum.help400@listas.combios.es<mailto:forum.help400@listas.combios.es> Subject: Código de operación TEST() Buenos días : ¿Alguien me podría decir por favor qué hago mal? En el siguiente código ile rpg, TEST() siempre me devuelve que la fecha es errónea. h datedit(*ymd) datfmt(*iso) * d fecha1 s 8a inz('20180219') d fecha2 s 8a inz('20180230') d werror s 2a inz(' ') * c eval werror='NO' c *ymd test(d) fecha1 51 c if *in51=*on c eval werror='SI' c endif * c eval werror='NO' c *ymd test(d) fecha1 52 c if *in52=*on c eval werror='SI' c endif * c eval *inlr=*on Saludos, Javier
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.