RE: Embedded SQL - fetching a date

I'm not sure I understand this along with what Rob said about it working
when you drop a date field into a date variable field vs. a date data
structure subfield.

You're right in that SQL will convert the date correctly to Alpha.  


Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of HauserSSS
Sent: Friday, July 15, 2005 12:50 PM
To: RPG programming on the AS400 / iSeries
Subject: AW: Embedded SQL - fetching a date

Hi Kurt,

it might be a problem within RPG.
A date is stored as 4 Byte binary value in a file or table.
But in RPG converts all dates to a character representation.
To represent a date in RPG 10 bytes are used.
The precompiler recreates additional fields for all host variables.
The precompiler might be forced to create a 10Byte character field for
the date.
SQL is able to convert and handle a character representation of a date,
that contains a 4digit year and the correct separators.

Birgitta

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Kurt Anderson
Gesendet: Freitag, 15. Juli 2005 18:50
An: RPG programming on the AS400 / iSeries
Betreff: RE: Embedded SQL - fetching a date


Our default is *ISO.
Added in the Set statement to change it to *ISO explicitly, but the
program still doesn't like putting the date into the Date data structure
subfield.

The subfield is defined off the same field I'm retrieving the date from,
so there shouldn't be any format discrepancies there.


Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tyler, Matt
Sent: Friday, July 15, 2005 10:30 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Embedded SQL - fetching a date

Did you create the program or set the option like this?

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

Or

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

The default is *MDY.

Thank you,
Matt Tyler
WinCo Foods, LLC
mattt@xxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Kurt Anderson
Sent: Friday, July 15, 2005 9:23 AM
To: RPG programming on the AS400 / iSeries
Subject: Embedded SQL - fetching a date

I can't seem to fetch a date format field and place it in a date format
field in a Data Structure.  If I change the field in the DS to be 10A
instead of D, then it works.

Is there something I can do so I can drop the value right into a date
format field instead of having to drop it into an Alpha field and then
move it to a date format field myself?

I don't seem to have this problem when I do a simple Select Into
statement.

Thanks,

Kurt Anderson
Application Developer
Highsmith Inc.
W5527 State Road 106, P.O. Box 800
Fort Atkinson, WI 53538-0800
TEL (920) 563-9571  FAX (920) 563-7395
EMAIL kjanderson@xxxxxxxxxxxxx

--

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.
--
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.


--
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.



--
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.