Re: ##EMailNumber 01-WNY-5014817 TEST (D) Question

Rob,

I don't see your point at all. No where in Jorge's note does he start a
religious debate. I believe he just misunderstood the application of *CYMD
which as put in to support the existing CL date format of CYYMMDD. Then
later, IBM added addition centuries to that format because it mathematically
fit.

Bob Cozzi
www.rpgiv.com


----- Original Message -----
From: Rob Berendt <rob@dekko.com>
To: <RPG400-L@midrange.com>
Sent: Thursday, July 01, 1999 9:36 AM
Subject: Re: ##EMailNumber 01-WNY-5014817 TEST (D) Question


> Is this one of those arguements in which we discuss whether the
> first year was year 0 or year 1?  In which we discuss whether the
> new century begins in the year 2000 or 2001?  In which we discuss
> whether we can use Gregorian dates, after the start of our current
> year numbering, (AD), but prior to the implementation of the
> Gregorian calendar?  Does it matter?  Can't we just use dates as
> a reference?  Can we please avoid the religious - is it more
> important that we know the exact date of the death of Jesus, or
> the message He brought?
>
>
>
>
>
> jmoreno@militarycars.com on 07/01/99 09:04:31 AM
> Please respond to RPG400-L@midrange.com@Internet
> To: RPG400-L@midrange.com@Internet
> cc:
> Fax to:
> Subject: ##EMailNumber 01-WNY-5014817 TEST (D) Question
>
> Hello all
>
>   I have a very simple question.
>
>  Currently running in V4R2M0. and I had these lines of code in my RPG pgm
...
>
> Definition of Workfield:
> **********************************************************************
>  D                 DS
>  D RDDT0MDY                1      8S 0
>
> A data base field is moved to the workfield and
>     the workfield is tested for a valid Date
> **********************************************************************
>
>
> CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq
> C                                             MOVE           CMRRDT
RDDT0MDY
>  * Test for Y2K Format YYYYMMDD <Order Date>
> C             *CYMD                TEST (D)
RDDT0MDY               99
> C
>  *
> Results:
> **********************************************************************
> IF CMRRDT = 19991231 Indicator 99  is  *OFF (correctly)
> IF CMRRDT = 20000101 Indicator 99  is  *OFF (correctly)
> IF CMRRDT = 00001231 Indicator 99  is  *OFF (incorrectly)
> IF CMRRDT = 00000101 Indicator 99  is  *OFF (incorrectly)
>
> Question: Has anyone seen these behaviour for *CYMD TEST (D) over a
numeric field (8,0)  and the extended
> year = 0000 ?
>
> Thanks for your contributions and comments
>
>
>                                   Jorge
>
>
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>
>
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *