RE: date & Test still not working

Shoot.. totally missed the indicator..  ignore my post...

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Jonathan Mason" <jonathan.mason@xxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2006/03/17 10:49 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: date & Test still not working






On the TEST statement, you can either specify the "E" extender or the 
error
indicator, but not both.  Change the line to one of the following:

038400 c                   test (D)                datefield       --22--
  or 
038400 c                   test (D E)              datefield 

All the best

Jonathan
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of steema@xxxxxxxxxxxxx
Sent: 17 March 2006 13:45
To: RPG programming on the AS400 / iSeries
Subject: Re: date & Test still not working

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.
>
>