Just upload Alan Campins idate
Your UDF below, does not handle numerics that are invalid dates
Idate does handle such problems
http://www.think400.dk/downloads.htm
Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Justin Taylor
Sent: Monday, July 01, 2019 8:49 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] RE: SQLRPGLE - current date - 7 days as a numeric field
I have a UDF to convert from a numeric(8) date in *ISO format to an actual date data type.
Here's my code (you'd need to change to handle your numeric(9)):
BEGIN
--bogus date
IF ( DATEIN = 0 ) THEN
RETURN NULL ;
END IF ;
RETURN CAST ( SUBSTR ( DIGITS ( DATEIN ) , 1 , 4 ) || '-' || SUBSTR ( DIGITS ( DATEIN ) , 5 , 2 ) || '-' || SUBSTR ( DIGITS ( DATEIN ) , 7 , 2 ) AS DATE ) ;
END
-----Original Message-----
From: Booth Martin [mailto:booth@xxxxxxxxxxxx]
Sent: Saturday, June 29, 2019 9:11 PM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: SQLRPGLE - current date - 7 days as a numeric field
I have a 9/0 field (020190627) in the data that i want to compare >= with today's date-7 days in an SQL WHERE clause.
I have ... WHERE :FIELD90 >= (current date - 7 days)
This is part of wSQLstmt in: exec sql prepare Stmt1 from :wSQLstmt; and it fails with -514.
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
