RE: Why RPG IV Sucks

["Bob Cozzi" <cozzi@xxxxxxxxx>]

I would expect a *MDY date value to be able to hold Jan 1, 0001 just like
*ISO does. Under the covers they are all the same date values. 
So the valid date range should NOT have been restricted based on format
(this is not a RPG issue, however). Instead, the date fields, when viewed,
should issue a "Date out of range for format" but continue to be usable by
code for date math and for moving to *ISO and non-*ISO format dates.
Sure date's should have a "zero-like" value or *LOVAL equivalent, but sadly
they don't. 
-Bob

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of joe
Sent: Friday, January 28, 2005 1:23 PM
To: RPG programming on the AS400 / iSeries; RPGIV@xxxxxxxxxxxxxxx
Subject: Re: Why RPG IV Sucks

It would be nice if at run time the system could recognize *loval 
equalivence between different date formats and convert accordingly.
If I move a *ISO *loval to *MDY field I would expect a *MDY *loval 
of 01/01/40 from 0001-01-01.

joeM


 
----- Original Message ----- 
From: "Bob Cozzi" <cozzi@xxxxxxxxx>
To: <RPGIV@xxxxxxxxxxxxxxx>; "'RPG programming on the AS400 / iSeries'"
<rpg400-l@xxxxxxxxxxxx>
Sent: Friday, January 28, 2005 11:47 AM
Subject: Why RPG IV Sucks


> Okay maybe I'm a bit cranky.
>  
> Scenario:
>  
> DSPF DDS contains  a date field with DATFMT(*MDY)
>  
> Compiled RPG IV that uses that display file is called.
> Write to the display file with that date field, BOOM!
> Why?
> Because the RPG IV converts the date from the display file into *ISO
within
> the program. 
> RPG IV also initializes date fields in *ISO format to D'0001-01-01'
> This date however is NOT valid for *MDY so I end up wth:
> RNQ0114 -  Message . . . . :   The year portion of a Date or Timestamp
value
> is not in the correct range (C G D F).
>  
> -Bob
>  
>  
> -- 
> This is the RPG programming on the AS400 / iSeries (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 AS400 / iSeries (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.