Re: Embedded SQL formatting dates

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

That will make the format into mm-dd-yyyy, as you indicated, Booth.

Now if this is embedded in RPG, you can use this -

     set :MDYYDATE = replace( char(current date,usa),'/','-')

Then you don't need the SELECT from the file.

There's also the VALUES statement that lets you set a single row of 
values, as I recall.

HTH
Vern

On 12/31/2015 1:57 PM, Kevin Bucknum wrote:
> SELECT replace( char(current date,usa),'/','-') FROM
> SYSIBM/SYSDUMMY1
> Maybe?
>
>
>
>
> Kevin Bucknum
> Senior Programmer Analyst
> MEDDATA/MEDTRON
> Tel: 985-893-2550
>   
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth
> Martin
> Sent: Thursday, December 31, 2015 1:48 PM
> To: RPG programming on the IBM i / System i
> Subject: Embedded SQL formatting dates
>
> Birgitta tantalized me  a bit ago.  SQL does so much so well.
>
> So far I have not found a way to set the output format for a date.  This
> does not work:
>
>              exec sql select date(:WRKDAT)
>                into :MDYYDATE "mm-dd-yyyy" from SYSIBM/SYSDUMMY1;
>
> (As an aside, it seems to need SYSIBM/SYSDUMMY1.  At least I am #1, eh?
>
> Or does that mean something else?)
> --
> This is the RPG programming on the IBM i (AS/400 and 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.