Re: Last day of the next month

Just be sure to watch for changes in the year as you do this.


Steven Morrison
Fidelity Express
903-885-1283 ext. 479



"Michael Ryan" <michaelrtr@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/19/2007 08:47 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Last day of the next month






Add two months to the current month, set the day to 1, and subtract 1 day.

On 6/19/07, derek gonsalves <d_gons@xxxxxxxxxxx> wrote:

Hi everyone,

What would be the simplest way to find the last day of the next month?
I have a requirement, wherein i need to update a particular field with

the

first day of the next
month and another field with the last day of the next month.
I have done this using the following -

@CDate Ds
@CC 1 1 0
@CY 2 3 0
@Str51 4 4 Inz('/')
@CM 5 6 0
@Str52 7 7 Inz('/')
@CD 8 9 0

dW@dat s d



*CYMD Movel @CDate W@dat
AddDur 1:*M W@dat
*CYMD Movel W@dat @CDate

Eval cent = @CC
Eval year = @CY
Eval mont = @CM
Eval day = 01

Now this handles the first day of the next month,
How will i handle the last day of the next month. Any suggestions?

Thanks in advance
Derek

_________________________________________________________________
Who's that on the Red Carpet? Play & win glamorous prizes.

http://club.live.com/red_carpet_reveal.aspx?icid=REDCARPET_hotmailtextlink3

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