RE: MIDRANGE-L Digest, Vol 12, Issue 1085

Thank you, I appreciate the input.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Monday, May 20, 2013 5:35 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: MIDRANGE-L Digest, Vol 12, Issue 1085

On 20 May 2013 15:41, Gary Thompson wrote:

Maybe this helps:
SELECT CAST
(REPLACE ( CHAR(DATE(CURRENT_DATE)), '-', '' )
AS DECIMAL(8,0)) AS CURYYYYMMDD
FROM SYSIBM/SYSDUMMY1

You should be able to run the statement above from STRSQL, so this
shows how to convert CURRENT_DATE to an 8 digit decimal.

Your output should be something like:

....+....1..
CURYYYYMMDD
20,130,520

That query fails to state an important assumption; i.e. that the DATFMT for the SQL environment must be *ISO. Best to always remove any assumptions when easily effected. In this case, the CHAR function has a second argument for when a DATE [expression] is the first argument, and that second argument would best be the value ISO to avoid encountering a /failed assumption/ in the query. Additionally FWiW, the use of the
DATE() scalar is redundant and the lack of a space\blank after the comma in the precisions\scale specification would fail syntactically in a language that uses the comma as a decimal separator. The expression shown in the VALUES should be sufficient to avoid failed assumptions with both the DATFMT and DECFMT\DECPNT settings:

values ( dec( replace( Char( current date , iso ), '-', '' ), 8 ) )

--
Regards, Chuck
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.