Re: Calculate the 20th of next month

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

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?
> >
> >
> >     
>
>