Re: date & Test still not working

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

This works...

Test(ED) *USA0 WcDelDate;

I'm checking the character field WcDelDate to ensure it's a valid date in
*USA format (with no seperators). A numeric field check would be the same.
Note there's no space between the extenders. Also note that I'm not
specifying an indicator.Instead, I do this after the TEST:

If Not(%Error);
  WkDate = %Date(WCDelDate:*USA0);
  If WkDate < (%Date() + %Days(2));
    Not2DayDate = *On;
  EndIf;
Else;
  InvalidDate = *On;
EndIf;

Where WkDate is a *real* date field. I'm also ensuring that WkDate is more
than 2 days from today's date, but that's not relevant.


On 3/17/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:
>
> I am trying to do a simple date check. but it won't compile.
>
>
> 038300 c                   move      datef     datefield
> 038400 c                   test (D E)              datefield       --22--
>
> ======>                            a
> *RNF5055 20 a      038400  The E operation extender cannot be specified
> when a
>                            indicator is specified.
> 038500 c                   eval      *in22 = *on
> 038600 c
> 038700 c                   iter
>
>
>
>                                                                 More...
> > Earlier this week, I was asking about date validity, I was given several
> > suggestions on use of TEST but none seem to work, that is the program
> > won't compile.
> >
> > I simply want to move my screen date field into  D spec defined field
> > called Datefield and have that field TESTed. So what is my C spec to
> look
> > like?
> >
> > Thank you,
> > Steve
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>