Re: Invalid date Values

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

C    *YMD            Test (D)              SomeDate                 20
C                    If          *IN20 = *On
C                    Time        Today
C    *MDY            Move        Today     SomeDay
C                    Else
C    *YMD            Move        SomeDate  SomeDay
C                    EndIf

Totally untested, some things I found out today (like the Time op code).  You 
may need
to play with the *YMD, *MDY, *ISO, etc... but you should get the general idea.

The whole key is the Test (D) to test a value (numeric or string) for a valid 
date.

Regards,

Jim Langston

Gade_R_Reddy@consecofinance.com wrote:

> Hello everybody,
>
> I am trying to convert a 8 digit(CCYYMMDD) numeric field to a date type
> field(CCYY-MM-DD).
>
> If the numeric field has a invalid date value, i want to put the system
> date in it.
>
> Please let me know how would i do this.
>
> Thanks for your help.
>
> Gade.

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---