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

[Rob Berendt <rob@xxxxxxxxx>]

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