Re: Year 300 bug in ILE RPG or ...?

[Mani <mani@xxxxxxxxxx>]

Hi, 

I am not sure if I understood the question right. My interpretations are:

1) Year 300 did not show up as a leap year, which is true because years
100, 200 and 300 are not leap years.

2) The program ended abnormally. 
I do not know the answer to this.

...Mani

At 12:40 AM 5/24/98 -0600, you wrote:
>
>
>       Hi folks.
>       I was recently playing with dates and date types in RPG IV (you
>guess why :))), and have found something rather strange.
>
>       Wrote a program to print all leap years from 1 to 9999 using
>simple technique: set (*iso, but doesn't metter) date to March 01, and
>SUBDUR one day from it. If it ends up with Feb 29, it's a leap year. My
>program broke whenever it hit year 300. Same loop, same logic worked for
>all years in range from 1 to 9999, but for 300. Further investigation
>(dump and source debugger) showed that reason for it was that:
>
>(no format)
>D Ddate             s             d     DATFMT(*ISO)
>D Ndate             s           8   0
>
>



   _/      _/      _/      _/   _/   _/
 _/  _/ _/    _/ _/    _/ _/_/   _/     
_/ _/ _/   _/   _/   _/    _/   _/  ...Time is what you make of it!!
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---