RE: date validate

c     *ymd          test(d)                 datefield              22
C                      if              *in22 = *on
c                      iter

Try using the above test...

Or skip the test...

C                     Monitor
C    *ymd          Move       screendate  datefield
C                     On-Error
C                     Eval         *In22=*On
C                     EndMon



Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of steema@xxxxxxxxxxxxx
Sent: Wednesday, March 15, 2006 10:21 AM
To: Midrange Systems Technical Discussion
Cc: rpg400-l@xxxxxxxxxxxx
Subject: RE: date validate

I am getting this error cond. C
 Date, Time or Timestamp value is not valid (C G D F).

 Type reply, press Enter.
   Reply . . .

iow, it breaks up the screen, rather than letting my program handle it.

 I defined this
D Datefield       S               D   DATFMT(*ymd)

I move the date from the screen to Datefield. The date on screen is
defined as num. 6 00.

Then I do the TEST

c                   test                    datefield              22
c                   if        *in22 = *on
c                   iter
c                      endif

Why doesn't the program logic kick in?

Thanks,
Steve