RE: Date Determination based on # of days

Jack,

I'd suggest using the ADDDUR and SUBDUR commands. Replace with variables as
needed, but here is how I'd approach this.

 D todayUSA        s               d   datfmt(*usa)         
 D less30USA       s               d   datfmt(*usa)         
 D add30USA        s               d   datfmt(*usa)         
  * get today's date                                        
 C                   move      *date         todayUSA       
  * add 30 days to today                                    
 C     todayUSA      adddur    30:*days      add30USA       
  * subtract 30 days to today                               
 C     todayUSA      subdur    30:*days      less30USA      

Hope this helps,
Patrick


-----Original Message-----
From: jack.roughgarden@xxxxxxxxxx [mailto:jack.roughgarden@xxxxxxxxxx] 
Sent: Friday, March 21, 2003 8:33 AM
To: RPG programming on the AS400 / iSeries
Subject: Date Determination based on # of days



Hello All,

I was searching the achieves and could not find what I was specifically
looking to accomplish.

In ILE I am passing as a parm '30' days , as an example and based on current
date I wanted to calculate the date 30 days in the future, 30 days into the
past.

Is there an example of this on midrange ????

Thanks in advance.

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