Re: Date problem

I should also mention that this won't get you want you want... because of
the year.... year 2006 is less than 1999 in the YYMMDD format.

You may want to calculate the date (60 days from today) and leave it in the
date field.  Create a new date field that will hold the value from the
file.

D Today                 S              D       Inz(*SYS)
D g60DaysAgo            S              D
D newDateField          S              D


            dow   not %EoF
            read  file
            If    %eof
            leave
            Endif
            Eval  g60DaysAgo = Today - %Days(60)
   *YMD     move  File'sDate   newDateField
            If    NewDateField < g60DaysAgo
            ItEr
            EndIf
            Enddo




Michael Schutte



                                                                           
             steema@diskhaven.                                             
             com                                                           
             Sent by:                                                   To 
             rpg400-l-bounces@         "RPG programming on the AS400 /     
             midrange.com              iSeries" <rpg400-l@xxxxxxxxxxxx>    
                                                                        cc 
                                                                           
             06/13/2006 10:30                                      Subject 
             AM                        Re: Date problem                    
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




THe problem now is that this act_date is needed to do a SETLL on a file so
that I can bring into the subfile only the past 60 days or so.

I need to convert this act_date back to a regular 6 00.

How about

act_date = %date(6psnDate:*ymd) - %days(60)

Don't remember if this works or not, but I thought I did something
similar.

On 6/13/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:

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.

--
Mike Wills
koldark@xxxxxxxxx
http://theriverbendpodcast.com

Code Monkey like Fritos
Code Monkey like Tab and Mountain Dew
Code Monkey very simple man
- Johnathan Coulton - Code Monkey
--
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.