RTN LAST.DAY.OF.THIS.MONTH

Dear all
Have everybody got source code of routine LAST.DAY.OF.THIS.MONTH ? I need to setup Frequency.
Thank you./.

Thank you, But I want to the frequency appear like the pic

CALL core routine
CALL AM.GET.MONTH.LAST.DATE(PROCESS.DATE,MONTH.END,RESV.1,RESV.2,RESV.3)

*Desc - this routine takes input as date or yyyymmdd and returns the last date of the month it also return if the date is already a month end date
* Parameter Desc:

---

* PROCESS.DATE - Incoming/Outgoing - The Incoming date which needs to be processed, Output also return in the same variable
* MONTH.END - Outgoing - Its a flag to decide wheather the incoming date is month end or not. if it is a month.end it returns 'YES'
* RESV.1,RESV.2,RESV.3 - Reserverd - reserved for future use

Thank you very much, i will try to do it.

HI MADHULATHA,

This routine gives wrong output ....

Pls dont suggest this ....

Hi
Why do you need a routine? Just add 1 day to the current date and see if the day number in result is 1...

For a reverse operation, subtract 1 day from the first day of next month and there you are :))

The last day of current month can be taken as said but it has to have a additional condition when it is in 12th month. 1 day subtract should happen from the next year january first.

Hi
I wasn't fully clear in my proposition... All adds / subtracts have to be applied to the internal date that is obtained using ICONV(date, 'D').

Thanks VK for your response ...
I got the solution .....

Hi BASKARJAY

Kindly share the solution you finally settled for

Thanks

Hi
it's very easy to do if you know jBC a little bit :))

1. Calculate the number of next month; if it's January - add 1 to the year as well.
2. Construct the date for the 1st day of next month, ICONV it to the internal representation.
3. Subtract one from that and OCONV it back.

That if we're talking about calendar days. Use CDT if it's working days.
Of course CDT can be used in both cases but I prefer a solution that is more "native" to DBMS.