RE: Invalid date Values

[Jon Erickson <jerickson@xxxxxxx>]

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