Re: Date problem

Yes but where does the 60 days fit in this one?

the problem I have getting a compile is that when building my subfile I am
doing a date compare:

 C     F1odat        ifge      act_date

and here cosistently the error is diff data types and lens.

What about


EVAL     dateDiff = %diff( %date(yymmdd : *YMD0) : %date() : *DAYS);


Adam





steema@xxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
13/06/2006 09:31 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG400-L@xxxxxxxxxxxx
cc

Subject
Date problem






HI I have to compare 2 dates. From the file the format is 6 00 S, yymmdd.

I need to comopare this date to the current date, less 60 days. So I take
the system date, and I want to subtract 60 days from it. I put the system
date into a field yymmdd.

I set my result field as:

Dact_Date         s               d

then :

 c     yymmdd        Subdur    60:*Days      act_Date

but I am getting an error in compile:

RNF7052 30      1 Factor 1 and Factor 2 are not the same type; the
                  specification is ignored.

which is correct, in fact, act_date is considered as:

          ACT_DATE          D(10*USA/)

my question is, how to have act_date be the same type as a simple numeric
field?

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



#####################################################################################
Attention:
The above message and/or attachment(s) is private and confidential and is
intended
only for the people for which it is addressed. If you are not named in the
address
fields, ignore the contents and delete all the material. Thank you. Have a
nice day.

For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################
--
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.