RE: Embedded SQL in RPGLE pgm

[RPower@xxxxxxxxxx]

Ok that sounds perfect to what I'm trying to do.  I'd like to build the 
statement and execute like I do with my select statements:
      /FREE
         mainStatement =
         'Select * From Capmstr Where (CRECA = ''A'') AND CPROP1 LIKE ''' 
+
         %Trim(inCivic) + ' %'' AND CSTRET = ' + %Char(inStreet) +
         ' AND CAPT = 0 ORDER BY CPROP1';
      /END-FREE
      * 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?

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 12:50 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






Are you trying to update field names where they are contained in a program
variable (ctrName in this case)?  If you are, I believe you need to use a
dynamically built SQL statement. 

You build the SQL statement in a variable and use PREPARE and EXECUTE.  I
have some examples if you are unable to locate any. 

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

<clip>
any examples of an UPDATE statement using field names that I want to 
build.
I know how to do it using a plain SELECT statement and creating a 
literal statement and then running it.  But what I'm trying to do this 
time
is something like:
     C/Exec Sql
     C+ UPDATE PUBWRK/WPUSCHEDLE 
     C+ SET %Trim(ctrName) = %Char(retField), 
     C+ %Trim(appName) = %Char(retField)
     C+ WHERE %Trim(dateName) = %Char(inPickupDate)
     C/End-Exec 

<clip>