Re: Last day of the next month

[smorrison@xxxxxxxxxxxxxxxxxxx]

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.