Re: Calculate the 20th of next month

[JR McGaha <j.mcgaha.it@xxxxxxxxx>]

Another option:



Create a sub-procedure and insert the following:



/free

 exec SQL

   select Last_Day(current_Date) + 20 days into :dueDate

   from sysibm/sysdummy1;

 return dueDate;
/end-free




On Mon, Oct 5, 2009 at 1:04 PM, Don <dr2@xxxxxxxx> wrote:

> I'd move the date to an array or substring it, move '20' to the day field,
> add one to the month (if 13 then make 1 and add 1 to year).  Return new
> date.
>
> Should be falling off a log simple..
>
> DR2
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Hillier, Martin
> Sent: Monday, October 05, 2009 12:43 PM
> To: RPG programming on the IBM i / System i
> Subject: RE: Calculate the 20th of next month
>
> Hi Booth.
>
> Have you tested this for when the date is (say) January 31st?
>
> Id normally go back to the first of the month, then add 1 month and 20
> days
>
> Cheers,
> Martin
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
> Sent: 05 October 2009 17:22
> To: RPG programming on the IBM i / System i
> Subject: Calculate the 20th of next month
>
> 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?
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> --------------------------------------------------------
>
> This message (including any attachments) is only for the use of the
> person(s) for whom it is intended. It may contain Mattel confidential
> and/or
> trade secret information. If you are not the intended recipient, you should
> not copy, distribute or use this information for any purpose, and you
> should
> delete this message and inform the sender immediately.
>
> Mattel UK Limited is incorporated in England and Wales with its registered
> office at Mattel House, Vanwall Business Park, Vanwall Road, Maidenhead,
> Berkshire SL6 4UB. Company Registration Number 1471442.
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.