RE: date & Test still not working

Read the message.

You can't use both the (E) operation extender (as in DE in your example)
and specify Resulting Indicator 2.
You use one or the other, but not both.

If you want to use Indy 22, then remove the E.
If you want to use %ERROR, then remove the 22.

-Bob Cozzi


> -------- Original Message --------
> Subject: Re: date & Test still not working
> From: steema@xxxxxxxxxxxxx
> Date: Fri, March 17, 2006 7:44 am
> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> 
> 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.