• Subject: Re: ##EMailNumber 01-WNY-5014817 TEST (D) Question
  • From: Rob Berendt <rob@xxxxxxxxx>
  • Date: Thu, 1 Jul 1999 9:36:04 -0500

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

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].