×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
/Free
W@Dat += %Months(1) - %Days(1);
/End-Free
And now fill @CDate...
Kind regards/Mit freundlichen Grüßen
Erich W. Schasse
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [
mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of derek gonsalves
Sent: Tuesday, June 19, 2007 3:43 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Last day of the next month
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
midrange.com
