Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
sobana

New User

Joined: 11 Nov 2006
Posts: 3

 Posted: Wed Nov 22, 2006 7:42 pm    Post subject: Subtract two dates in cobol HI can anyone help me to subtract two dates using any function in cobol

William Thompson

Global Moderator

Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

 Posted: Wed Nov 22, 2006 8:02 pm    Post subject: Enterprise COBOL for zOS Language Reference Version 3 Release 3 igy3lr20 Chapter 22. Intrinsic functions INTEGER-OF-DATE The INTEGER-OF-DATE function converts a date in the Gregorian calendar from standard date form (YYYYMMDD) to integer date form. Number-of-Days = Integer-of-Date (YYYYMMDD) - Integer-of-Date (YYYYMMDD)
priyesh.agrawal

Senior Member

Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

Posted: Thu Nov 23, 2006 9:45 am    Post subject: Re: Subtract two dates using any function in cobol

Sobana,

As Mr. William already guided you on to right way, just few lights on the functioning.

INTEGER-OF-DATE function returns value as an integer that is the number of days that the input date succeeds December 31, 1600 in the Gregorian calendar. The function result is a seven-digit integer with a range from 1 to 3,067,671.
So basically INTEGER-OF-DATE(INPUTDATE) would return an integer representing number of days between 12/31/1600 and your input date.
So now you should not be having problem understanding how this works:-
 Code: COMPUTE NUMBER-DAYS-1 = FUNCTION INTEGER-OF-DATE(YYYYMMDD).  //*input date 1 COMPUTE NUMBER-DAYS-2 = FUNCTION INTEGER-OF-DATE(YYYYMMDD).  //*input date 2 COMPUTE DIFFERENCE-DAY= NUMBER-DAYS-1 - NUMBER-DAYS-2.
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics batch cobol/db2 paragraph fall thru a... alois eisshofer COBOL Programming 5 Wed Mar 14, 2018 12:21 am write multiple lines in PS file in cobol Balu5491 COBOL Programming 7 Wed Mar 07, 2018 10:27 am COBOL declaration for table Poha Eater DB2 2 Mon Feb 26, 2018 6:58 pm A couple of Interview Questions on Co... viplavmodi36 Mainframe Interview Questions 5 Fri Feb 23, 2018 6:21 pm Xpediter: STEP OVER cobol section Auryn Compuware & Other Tools 0 Thu Feb 22, 2018 9:30 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us