Re: Date Data Type Question.

[Glenn Ericson <Glenn-Ericson@xxxxxxx>]

Charlie  have we  irradiated all  life  &  records  between 1900 & 1939?
And then  wrote it off to a FILE I/O ERROR message?

At 06:58 PM 4/8/98 -0400,Charlie Massoglia wrote:
>Jerry et al,
>
>DO NOT USE *MDY, *YMD, *DMY, or *JUL moves in RPG IV!!!  This is a hard
>coded 1940 to 2039 window.  I hope I am alive in the year 2039 to see how
>IBM explains why we have to go through this Y2K thing over again.
>
>Worse yet, if you code a DATFMT keyword with a 2 digit year in your H-spec
>and you attempt to read a record from a database file with a *USA, *ISO,
>*JIS, or *EUR date less than 1940 or greater than 2039, you get a FILE I/O
>ERROR!!!
>
>Also, do not use a *CYMD move in RPG IV.  Not only is it worthless it's also
>dangerous!  If you move the 7 digit field '0160416' (i.e. 1916-04-16) you
>will get an execution time error.  *CYMD moves are also limited to the
>1940-2039 window.  I asked about this and was told "working as designed as
>evidenced by the underlying *CYMD support in the CVTDAT command".  This is
>hogwash!  Anyone who comes from a System/38 knows a '0' is unconditionally
>'19', a '1' is '20', a '2' is '21', etc.  
>
>I hope I am alive in the year 2039 to see how IBM explains why we have to go
>through this Y2K thing over again.
> 
>>
>>I have a need to convert a 6-digit numeric date data to a date data type
>>field of *USA  inside an RPG program.  Can anyone tell me how the AS/400
>>determines the century for this type of conversion?
>>
>>Thanks
>>
>>-- 
>>___________________________________________________________
>>Jerry R. Keppler      Pattonville School District
>+----
>
>Charlie Massoglia, Massoglia Technical Consulting, Inc.
>+---



Glenn
___________________________________________________
Glenn Ericson,          Phoenix Consulting                      
P O Box 701164   East Elmhurst NY 11370-3164 USA                            
Phone 718 898 9805       Fax 718 446 1150
AS/400 & Year 2000- - Solutions Specialists
 © 1998 copyright,  all rights reserved
____________________________________________________


 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@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
+---