Re: Date Format prior to 1940 -- RPG400-L

Makes me feel so "not as lonely" to know that someone else has to deal with
this utter FUBAR of a way to make code Y2K compliant, its a royal PITA when
its in darn near every file in our pkg and you want to do a simple query on
it (believe me, users will NEVER udnerstand a 7 digit date, so every friggin
one of em gets converted to something "human" readable in the
qry.............

On Jan 17, 2008 9:27 AM, <rob@xxxxxxxxx> wrote:

Chandana,

Don't feel bad, *CYMD confuses a lot of people. As Simon suggested, RTM.
Basically the C does not stand for
1900 or 2000, or even 2100. What it stands for is:
0 = 1900
1 = 2000
2 = 2100
So 1975-09-01 in *CYMD would be represented as: 0750901. While
2025-09-01 would be 1250901.
I have to remind coworkers every so often. Especially when they think I
have a bug in MY code (like that would ever happen) when it boiled down to
the fact that they passed the wrong parameter and got back just what they
asked for (but not what they wanted).

*CYMD is for all those people who still insisted on storing their dates as
numeric and decided that 7 packed digits would take up less space than 8
packed digits (1250901 versus 20250901). Of course, 7 packed digits still
take up 4 bytes, which is the same size as a true date field takes.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

Chandana Silva <chandana.silva@xxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/16/2008 11:13 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>

To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Date Format prior to 1940

We are on V5R4 and I am not sure, if this is a PTF issue.
I searched the net but couldn't come closer.

Here is the code:

D Date5 S D INZ(D'1939-06-01')
D Date8 S 8 0 INZ(20080101)

Date8 = %Uns(%char(Date5:*CYMD0))
DATE8 = 00390601

Per IBM I have to use the 3 Digit format for this but result is not good
for a 8 digit field but good for 6 digit.

My objective is to get the DATE8 = 19390601 in the simplest Date
format.

Any suggestions would be greatly appreciated.

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