How to get the value of (current date - 1 day) in cobol

vin12pr · New User Joined: 14 Jun 2006 Posts: 56

Hi,

How to get the value of (current date - 1 day) in cobol?

Thanks,
Vin12pr

ashwinreddy · Posted: Wed Apr 25, 2007 12:20 pm

Hi,

I am not sure whether this is possible in cobol, i think this cab be possible in db2 as (Date(ws-current) - day(1)).

As we need to consider even the date formats as ISO or jullian or GF (week format) etc.

As we use to call a date routine by passing all the required inputs.

May be some good answers follows from other members.

Cheers
Ashwin

murmohk1 · Posted: Wed Apr 25, 2007 12:31 pm

Vin12pr,

I believe you need little brain storming and programming skills to acheive your requirement.

Accept the DAY value into the variable, deduct 1 and convert the value to date using some logic.

Arun Raj · Posted: Wed Apr 25, 2007 12:51 pm

Hi vin12pr

I think you will find something useful here...

http://www.cse.ohio-state.edu/~sgomori/314/intrinsic.html

Thanks
Arun

Arun Raj · Posted: Wed Apr 25, 2007 1:02 pm

Hi

I have modified the code from the above link.Plz let us know if it is correct.

William Thompson · Posted: Wed Apr 25, 2007 3:15 pm

Have you looked at the intrinsic functions in the Enterprise COBOL Reference Manual?

rz061m · New User Joined: 03 Mar 2006 Posts: 48 Location: Chennai

I am not sure of how the above code is going to work.

My suggestion will be, get the current date; convert it to Julian date and subtract one from it and then convert the julian date to normal for of your choice, PROVIDED YOU KNOW THE UTILITY USED IN YOUR SITE TO CONVERT DATES TO DIFFERENT FORMAT.

TG Murphy · Posted: Wed Apr 25, 2007 11:43 pm

Guys,

The intrinsic functions work just fine. We have a sub-program that adds and subtracts from a date - it does not use the intrinsic functions because it was coded years ago - before the functions were available. We wanted to measure whether there would be any performance advantage in using the intrinsic function instead of our own routines. They both performed the same.

So we continue to use our utility.

However - like I said the instrinsic functions work great and are easy to use.

jasorn · Active User Joined: 12 Jul 2006 Posts: 191 Location: USA

Yeah, the instrinsic functions make date calculations a snap.