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

[jmoreno@xxxxxxxxxxxxxxxx]

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