Re: Using Subdur

[Booth Martin <booth@xxxxxxxxxxxx>]

Use the %bifs, Adam.  You will be a lot happier.

 %date()  is today's date. No need to use UDATE or *DATE.

Or, in your example,

Since we know it is running on Sunday, and we want Sunday's date, we can 
just:

C     *DATE       subdur    6:*Days       MondaysDate




Adam West wrote:
> They are date fields but how to I get UDATE into this, since it is not a date - field? I need udate to know what my starting point is.
>
> --- On Tue, 7/1/08, Alan Shore <AlanShore@xxxxxxxx> wrote:
>
> From: Alan Shore <AlanShore@xxxxxxxx>
> Subject: Re: Using Subdur
> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> Date: Tuesday, July 1, 2008, 7:13 PM
>
> Actually SUBDUR can also give you a date by adding or subtracting
> *DAYS,*WEEKS,*MONTHS, *YEARS from one date
> To obtain Mondays date
> Assuming
> SUNDAYSDATE is a date field
> MONDAYSDATE is a date field
> then
>  C     Sundaysdate       subdur    6:*Days       MondaysDate
>
>
>
> Alan Shore
> Programmer/Analyst, Direct Response
> E:AShore@xxxxxxxxxxx
> P:(631) 244-2000 ext. 5019
> C:(631) 880-8640
> "If you're going through Hell, keep going" - Winston Churchill
>
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/01/2008 02:46:02 PM:
>
>   
> > HI In this case, I have to take a report and make it a weekly. I
> > would have this set to run on Every Sunday. I am not quite sure how
> > to get to the previous Monday. Subdur only tells me how many days
> > between 2 dates. I need to go back what 6 days and cap it for 4 more.
> >
> > Also the dates in my file are YYMMDD. I would use the UDATE which is
> >     
> MMDDYY..
>   
> > Any help would be greatly appreciated.
> >
> >
> >
> > --
> > 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.
> >
> >     
> > ------------------------------------------------------------------------
> >
> >
> > No virus found in this incoming message.
> > Checked by AVG. 
> > Version: 8.0.101 / Virus Database: 270.4.3/1528 - Release Date: 7/1/2008 7:26 AM
> >