AW: Date data type with embedded SQL

["HauserSSS" <Hauser@xxxxxxxxxxxxxxx>]

Hi Rick,

I didn't mention it before, but your data structure is based!
That means no storage is reserved for your data structure.

     d RtnDtaSet       ds                  Occurs(1280) Based(RtnDtaSet@)
     d  AWrkQ                         3a
     d  ASysId                        1a
     d  ATrans                        7a
     d  AUser                        10a
     d  ALdDate                        D
     d  ALdTime                        T
     d  AAppl#                       12s 0
     d  ADlr#                         5s 0
     d  ALName                       30a
     d  AUpdt                         1a
     d  AApnd                         1a
     d  AHowR                         3a
     d  AGfxId                        8s 0
     d  ABrnch                        3s 0

Try to remove the BASED-Keyword.

Mit freundlichen Gru?en / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von
Rick.Chevalier@xxxxxxxxxxxxxxx
Gesendet: Freitag, 6. Januar 2006 20:27
An: rpg400-l@xxxxxxxxxxxx
Betreff: RE: Date data type with embedded SQL



Birgitta,

Sorry, I forgot to add that to the post.  I found reference to the DATFMT
set option in one of your archived posts.  It didn't seem to help however.
My current set statement follows.

     c/Exec SQL
     c+ Set Option
     c+  Commit = *None,
     c+  DatFmt = *ISO
     c/End-Exec

Rick

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of HauserSSS
Sent: Friday, January 06, 2006 12:38 PM
To: RPG programming on the AS400 / iSeries
Subject: AW: Date data type with embedded SQL


Hi Rick,

add a set option statement to fix the date and time format used by SQL.
The date format must have a 4 digit year, that means you specify one of the
following formats *ISO, *EUR, *USA, *JIS.
The precompiler generates an extra field for each host variable used in an
SQL-Statement. (SQL...)
Date and time fields get the date/time format that is either specified in
the CRTSQLRPGI command option DATFMT and TIMEFMT or in the SET OPTION
statement. The default value in the CRTSQLRPGI is *JOB and the job date
format normally uses only a 2 digit year. In this way the field create by
the SQL precompiler only uses 8 bytes and not 10 as expected in your data
structure.

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

Mit freundlichen Gru?en / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)


Privileged and Confidential.  This e-mail, and any attachments there to, is
intended only for use by the addressee(s) named herein and may contain
privileged or confidential information.  If you have received this e-mail in
error, please notify me immediately by a return e-mail and delete this
e-mail.  You are hereby notified that any dissemination, distribution or
copying of this e-mail and/or any attachments thereto, is strictly
prohibited.

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