Last day of the month

abhishek mitra · New User Joined: 24 Feb 2008 Posts: 48 Location: Kolkata

Hi,

Is there any way to find the date of the last day of current month by using cobol intrinsic functions.

It can greatly reduce the number of lines I have to code otherwise.

Thanks

CICS Guy · Posted: Tue Mar 24, 2009 8:12 pm

How about, after setting DD to 1 and adding 1 to MM (checking for 13), INTEGER-OF-DATE and subtract 1 day and then DATE-OF-INTEGER for the last day of the month.

abhishek mitra · New User Joined: 24 Feb 2008 Posts: 48 Location: Kolkata

diwa_thilak · Posted: Wed Mar 25, 2009 1:58 am

Wow CICS Guy that was a cute solution.

I was thinking about the DB2 query to retrieve the date. But great this is a very simplest way of handling this issue.

arvind.m · Posted: Wed Mar 25, 2009 3:00 am

Hello CICS guy,

CICS Guy · Posted: Wed Mar 25, 2009 3:21 am

The input to the function is in the form of YYYYMMDD, redefine that into 3 variables, YYYY, MM & DD.
The output to the function is 9(7).
Move 01 to DD.
Add 1 to MM, if MM > 12, move 01 to MM and add 1 to YYYY.
Call function using
Compute YYYYMMDD = DATE-OF-INTEGER(INTEGER-OF-DATE(YYYYMMDD) - 1).
I think that should work.....
Or, compute 9(7) = INTEGER-OF-DATE(YYYYMMDD) - 1
and, compute YYYYMMDD = DATE-OF-INTEGER(9(7)).

arvind.m · Posted: Fri Mar 27, 2009 10:55 pm

Thank you CG. Can anyone provide link/document regarding the cobol functions.

William Thompson · Posted: Fri Mar 27, 2009 11:01 pm

Click IBM Manuals at the top of the page and then click ENTERPRISE COBOL Language Reference for the manual.

Robert Sample · Posted: Fri Mar 27, 2009 11:02 pm

The manuals link at the top of the page ... Enterprise COBOL Language Reference, chapter 7.1, Intrinsic Functions lists them all with arguments required.

arvind.m · Posted: Fri Mar 27, 2009 11:22 pm

Thank you.