El formato de fecha no concuerda.

*iso = 2018mmdd

*ymd = aammdd

*dmy = ddmmaa

*eur   = ddmmaaaa


Saludos


________________________________
From: forum.help400-boun...@listas.combios.es 
<forum.help400-boun...@listas.combios.es> on behalf of Javier Baca 
<javier.b...@bcndepot.com>
Sent: Tuesday, February 20, 2018 3:45 AM
To: 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.

Responder a