AW: can't get date with sqlrpg

If you are working with RPGIII, you need a character representation of a
date and NOT a real date?
So SET OPTION may or may not help you.
To convert a date into a character representation, you may use the scalar
function CHAR and specifiy the desired format (without leading asteric)

C/EXEC SQL Set :WMAJDL = CHAR(CURRENT_DATE, EUR);
C/END-EXEC

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von David FOXWELL
Gesendet: Thursday, 02. December 2010 09:20
An: RPG programming on the IBM i / System i
Betreff: RE: can't get date with sqlrpg

Wrong hammer, Mark. The subject says SQLRPG, not SQLRPGLE!

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Mark
Murphy/STAR BASE Consulting Inc.
Envoyé : mercredi 1 décembre 2010 22:50
À : RPG programming on the IBM i / System i
Objet : Re: can't get date with sqlrpg

What's wrong with


H DatFmt(*EUR)

/free
WMAJDL = %char(%date);
/end-free

It is at least twice as fast, and you don't have all that SQL
syntax confusing the issue. Do you use Exec SQL to do all of
your other assignments?

Sure you can use a big wrench to pound in a nail, but why do
that when the hammer is right there.

Mark Murphy
STAR BASE Consulting, Inc.
mmurphy@xxxxxxxxxxxxxxx



From: David FOXWELL <David.FOXWELL@xxxxxxxxx>
To: RPG programming on the IBM i / System i
<rpg400-l@xxxxxxxxxxxx>
Date: 11/30/2010 09:18 AM
Subject: can't get date with sqlrpg
Sent by: rpg400-l-bounces@xxxxxxxxxxxx



Hi all

This was giving me '30/11/10 '

C/EXEC SQL
C+ SET : WMAJDL = CURRENT DATE
C/END-EXEC

I wanted '30.11.2010'

So I tried :

C/EXEC SQL
C+ SET OPTION DATFMT = *EUR
C/END-EXEC

the editor accepts this but the compiler says position 9 not
admitted.
Where is position 9 anyway?

Thanks for your help.

--

This is the RPG programming on the IBM i / System i
(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.


--
This is the RPG programming on the IBM i / System i
(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.