Re: Date Data Type Question.

[cmassoglia@xxxxxxxxxxxxxxxx (Charles L. Massoglia)]

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
>Computer Programmer   11097 St. Charles Rock Road
>(314) 213-8045 Voice  St. Ann, MO 63074-1509
>(314) 213-8650 Fax    mailto:kepplerj@pattonville.k12.mo.us
>+---
>| 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
>+---
>
>


Charlie Massoglia, Massoglia Technical Consulting, Inc.
PO Box 1065, Okemos, MI 48854, USA
517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net


+---
| 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
+---