Re: Using Subdur

[Michael_Schutte@xxxxxxxxxxxx]

I'll show you again.

// assuming that program is running on sunday.
Eval Monday = %Dec(%Date(UDATE:*MDY)-%Days(6):*YMD);

setll (monday) file;
read file;
dow not %eof();
Enddo;



Michael Schutte
Admin Professional
Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/01/2008 04:30:03 PM:

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