Re: AW: Embedded SQL in RPGLE pgm

Kewl, thanks.  I'll be sure to RTFM before bugging you all again now that 
I actually know where to go to get the manual.  Thanks.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"HauserSSS" <Hauser@xxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/08/04 03:26 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
AW: Embedded SQL in RPGLE pgm






Just Check the SQLCOD or SQLSTT after each statement.
To find the error message, combine 'SQL' and the absolute value
of the negative SQLCOD to a message-id, i.e. -204 = 'SQL0204'.
Then use WRKMSGF and the message file QSQLMSG to find the message text.

By the way USING is wrong in the execute statement.
You have to use USING if you specify parameter markers (?)
in your text string and want to replace them by values stored in 
variables.

For more information about embedded SQL look at the following redbook,
I think it covers almost everything you have to know for embedded SQL.
Modernizing IBM eServer iSeries Application Data Access - A Roadmap
Cornerstone
http://www.redbooks.ibm.com/abstracts/sg246393.html?Open

Birgitta

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von RPower@xxxxxxxxxx
Gesendet: Donnerstag, 4. August 2005 19:40
An: RPG programming on the AS400 / iSeries
Betreff: RE: Embedded SQL in RPGLE pgm


Ok, what I have is this now:
           updateStatemnt = 'UPDATE WPUSCHEDLE SET '
                          + %Trim(ctrName) + '='
                          + %Char(retField) + ', '
                          + %Trim(numName) + '='
                          + %Char(retField) + ' WHERE ('
                          + %Trim(dateName) + '='
                          + %Char(inPickupDate) + ') AND (WPUAREA='''
                          + Wcgararea + ''')';
      /End-Free
     C/Exec Sql
     C+ PREPARE mainUpdate From :updateStatemnt
     C/End-Exec
     C/Exec Sql
     C+ EXECUTE mainUpdate Using :updateStatemnt
     C/End-Exec

but it doesn't seem to be working.  What am I missing?

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. -
Sir Winston Churchill




"Fisher, Don" <dfisher@xxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/08/04 02:07 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Embedded SQL in RPGLE pgm






After the PREPARE, use EXECUTE as follows:
C/Exec SQL EXECUTE mainSelect using :mainStatement

If you want to update the file, change "Select * from" to "Update" and add
the appropriate SET clauses.

Hope that helps.

Donald R. Fisher, III
Project Manager
Roomstore Furniture Company
(804) 784-7600 extension 2124
DFisher@xxxxxxxxxxxxx

<clip>
     * Prepare Select Statement
     C/Exec Sql
     C+ Prepare mainSelect From :mainStatement
     C/End-Exec

So I'd just build my updateStatement and how would the C/ and C+
statements
work?
<clip>
--
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.