|
midrange.com
Sorry. Try below :
* true date field
D dateField s D
* below is the date field on the screen
D dateF s 6 0 inz(031706)
* exit screen
D exitScreen s n
C dow not exitScreen
C monitor
C eval dateField = %date(datef:*mdy)
C eval exitScreen = *on
C on-error
C eval *in22 = *on
C iter
C endmon
C enddo
C eval *inlr = *on
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Friday, March 17, 2006 9:13 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: date & Test still not working
Would it be easier to do below?
C monitor
C eval dateField = %date(datef:*USA)
C on-error
C eval *in22 = *on
C iter
C endmon
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of steema@xxxxxxxxxxxxx
Sent: Friday, March 17, 2006 7:45 AM
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.
>
>
--
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
