Re: Calculate the 20th of next month

Scott

Am with you there - I prefer pure RPG, too - no need for the precompiler stuff.

I found one situation that needed SQL for what I wanted to do. I think I remember rightly in saying that the %timestamp() function does not return microseconds - only down to milliseconds - the last decimal positions are zeroes. (This may be related to the release - the "wayback machine" - that I'm developing on.)

At any rate, the "current timestamp" special value in SQL goes all the way to microseconds, so I use a SET function for that purpose. For reasons I don't remember now, I set the default on some timestamp fields to January 1, 0001 at midnight, so leaving that field out of WRITEs and all does not give me the microseconds I need. (A lot can happen between milliseconds on these boxes!)

Just a thought piece for those who want an example where SQL is maybe the way to go.

Now I'd love to have a control spec to give the number of decimals used in the %timestamp function!

Vern

Scott Klement wrote:

Here's how I'd do it (I always prefer a pure RPG approach when I can... I avoid SQL unless I'm doing database access)

D startdate s D inz(*sys)
D myDate s D

/free
myDate = (startdate - %days(%subdt(startdate:*DAYS)-1))
+ %months(1) + %days(19);



Booth Martin wrote:

Another simple task...

I need to calculate the 20 of the next month from today, whatever today is.

duedate = (%date() + %month(1)) - (%subdt(%date()): *d) + (%days: 20)

Seems like a choice but ... what are some of the other ways that work easily?