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

Jorge,

       the *CYMD date format is a 7-digit (not 8-digit!) date format.
It is a date in the format CYYMMDD, where C is either 0 for the
1900's or 1 for the 2000's.

The date format thay you want to use for YYYYMMDD is *ISO.

Changing *CYMD to *ISO in your program should solve the problem.

Scott Klement
Information Systems Manager
Klement's Sausage Co, Inc.


jmoreno@militarycars.com wrote:
> Hello all
>
>   I have a very simple question.
>
>  Currently running in V4R2M0. and I had these lines of code in my RP
>  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+HiL
>  q
> 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *