RE:

Use a UDF.

Assuming your numeric value is 8,0, then: -

CREATE FUNCTION lib/DEC2DATE (
D DECIMAL(8, 0) )
RETURNS DATE
LANGUAGE SQL
SPECIFIC lib/DEC2DATE
DETERMINISTIC
CONTAINS SQL
RETURNS NULL ON NULL INPUT
NO EXTERNAL ACTION
BEGIN DECLARE DIG CHAR ( 8 ) ;
DECLARE EXIT HANDLER FOR SQLSTATE VALUE '22007' RETURN NULL
;
SET DIG = DIGITS ( D ) ;
RETURN DATE ( SUBSTR ( DIG , 1 , 4 ) CONCAT '-' CONCAT
SUBSTR ( DIG , 5 , 2 ) CONCAT '-' CONCAT SUBSTR ( DIG , 7 , 2 ) ) ;
END ;

To use with embedded SQL: -

Select dec2date(file.field) into :pgmfield from file



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of VanEaton, George
Sent: 19 April 2007 14:10
To: rpg400-l@xxxxxxxxxxxx
Subject:

Is there any way in embedded sql to convert a numeric date to a date
data type?


Thanks



George Van Eaton
Systems Analyst
Purolator Filters NA LLC
george.vaneaton@xxxxxxxxxxx
Phone 615.377.1508
Fax 615.377.1520



**********************************************************************
This email and any files transmitted with it are confidential and are
the property of Purolator Filters NA LLC and are intended solely for the
use of the individual or entity to whom they are addressed.
If you have received this email in error please notify the system
manager.

This footnote also confirms that this email message has been swept by
MIMEsweeper for the presence of computer viruses.

www.clearswift.com
**********************************************************************
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.