Re: Y.3 bug?

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Ð
Hello Buck,

You wrote:
>A colleague got an odd error as a result of a typo.  I've re-created it 
>here in brief:

>D TRDAT           S               D   DatFmt(*iso)  
>C                   eval      trdat = d'0300-02-01' 
>C                   adddur    1:*m          trdat   
>results in '0300-02-29'

>I cannot see a PTF for this, and can't seem to locate the APAR database at
>the moment.  V4R5, cume 01100.  Needless to say, it's hardly
>earth-shattering.  More like an interesting curiosity.

Dates on the AS/400 are represented as a Scaliger number.  The Scaliger 
algorithm can represent dates from 4713 BC to  5,874,776 AD.  However, it 
has a bug for this specific date (i.e., 0300-03-01).  Read APAR M22296 for 
a detailed discussion.

The 'problem' also manifests when initializing a date to 0300-03-01, using 
INZ, MOVE, or EVAL.

I raised this as an issue with IBM months ago and discovered that it is a 
known problem.  There will not be a PTF for it.  I believe Rochester 
discovered the problem in VRM410 and attempted to fix it but were concerned 
by the performance implications.  I've been arguing the case with them for 
a while and eventually extracted enough information so now I tend to agree 
with them.

On the 16th of May 2001 I suggested that people on this list try 
initializing a DATE field to 0300-03-01 as an experiment but no one 
commented so I guess my diatribes are not read :-)

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\   «»
«» Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /   «»
«»                                                           X    «»
«»               ASCII Ribbon campaign against HTML E-Mail  / \   «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---