RE: Invalid date Values

[Gade_R_Reddy@xxxxxxxxxxxxxxxxxx]

That works!!!.

Thanks Again.






Jon Erickson <jerickson@800.com>@midrange.com on 07/05/2000 05:57:11 PM

Please respond to RPG400-L@midrange.com

Sent by:  owner-rpg400-l@midrange.com


To:   "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
cc:
Subject:  RE: Invalid date Values




d DateIso         s               d   DatFmt(*Iso) Inz(*Sys)
d TestDate        s              8  0

c     *Iso          Test(de)                TestDate
c                   If        Not %Error
c     *Iso          Move      TestDate      DateIso
c                   EndIf

HTH,
Regards,
Jon A. Erickson
Sr. Programmer Analyst
800.COM Inc.
1516 NW Thurman St
Portland, OR  97209-2517

Direct: 503.944.3613
Fax: 503.944.3690
Web: http://800.com


-----Original Message-----
From: Gade_R_Reddy@consecofinance.com
[mailto:Gade_R_Reddy@consecofinance.com]
Sent: Wednesday, July 05, 2000 3:20 PM
To: RPG400-L@midrange.com
Subject: Invalid date Values


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




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