Re: How to select for future event -- RPG400-L

From the RPG manual:

When adding a duration in months to a date, the general rule is that themonth portion is increased by the number of months in the duration, andthe day portion is unchanged. The exception to this is when theresulting day portion would exceed the actual number of days in theresulting month. In this case, the resulting day portion is adjusted tothe actual month end date. The following examples (which assume a *YMDformat) illustrate this point.

’98/05/30’ ADDDUR 1:*MONTH results in ’98/06/30’ The resulting monthportion has been increased by 1; the day portion is unchanged.

’98/05/31’ ADDDUR 1:*MONTH results in ’98/06/30’ The resulting monthportion has been increased by 1; the resulting day portion has beenadjusted because June has only 30 days.Similar results occur when addinga year duration. For example, adding one year to ’92/02/29’ results in’93/02/28’, an adjusted value since the resulting year is not a leap year.



AGlauser@xxxxxxxxxxxx wrote:

Alan Shore wrote on 09/11/2006 02:09:09 PM:
> I am assuming that you have a file with this data on, and in itssimplest
form is

Review date
Employee number
Employee last name
Employee first name
Employee middle initial
Employee supervisor.
If Alan is correct, but you want to notify managers automatically ofimpending reviews, you can do something along these lines:
position the file so you don't read any records < 11 months old

for each record;
    if ( %diff( reviewDate + %years(1) : today : *days)  <= 30);
        sendNotice();
    endif;
endfor;
I don't know if using '30 days' instead of '1 month' works for you. Ifnot, it might get a bit complicated. You will have to decide what onemonth before March 31 is. Is it February 28? March 1? Something else?
HTH,
Adam

#####################################################################################
Attention:
The above message and/or attachment(s) is private and confidential and is intendedonly for the people for which it is addressed. If you are not named in the addressfields, ignore the contents and delete all the material. Thank you. Have a nice day.
For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################