RE: Embedded SQL in RPGLE pgm

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>]

This reminds me of a question that I always seems to forgot to ask.

If the following sql result in updating thousands of records and one of the 
record is lock by another job.  I think the update will stop up to that point 
and the sql status will be set to something other than 0 and the program 
continue on to the next statement.
   
     C/Exec Sql
     C+ UPDATE MYFILE 
     C+ SET FIELDA = 'XXX' 
     C+ WHERE FIELDB = "YYY'
     C/End-Exec 

Question:
1) If the above is coded in RPG using do loop, I can easily check for record 
lock and send a message to user to get out of the record within a certain time 
or his/her job will be terminated.  Is there a way to do the same thing when 
doing this type of update in embedded sql? 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of RPower@xxxxxxxxxx
Sent: Thursday, August 04, 2005 10:10 AM
To: RPG programming on the AS400 / iSeries
Subject: Embedded SQL in RPGLE pgm


Ok,
I've searched the archives but can't find (or don't know what I'm looking 
for) 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 

but I don't think I'm doing this right at all am I?
Frustrated beyond all belief today...

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