× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




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

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.