RE: SQL Update in RPGLE.

Hi Mike,

Well, one problem I see is that you open CUST for update in the F spec.  As
you read, the record is locked and cannot be updated by any other
process....

Next, I wonder why you want to execute the update for every record.  The SQL
statement is global, meaning that it only need to run once, and every
instance of 'TN' will be replaced with 'TX'.  If your intent was to have SQL
only update the record that you were processing in your loop, then you'd be
much better off simply using the UPDATE opcode, and leaving SQL out of the
picture...

Also, I see others have pointed out that SQL by default wants to use
commitment control, and you need to turn that support off if you're not
using journaling.

hth,

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-297-2863 or ext. 1863



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Mike Troxclaire
Sent: Thursday, March 30, 2006 1:59 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: SQL Update in RPGLE.


Pros,

I am trying to execute this simple update statement. The program compiles 
and it runs and gives the dsply message but the file is not updated. Am I 
doing something wrong here? I would really appreciate it if somebody can 
point me in the right direction.

=============================================================
     FCUST      UF   E             DISK    RENAME(CUSTR:CSREC)

      /FREE
       DoW not  %eof(CUST);
         Read CUST;
         If not %eof(CUST);
           Exsr UpdateCSREC;
         EndIf;
       EndDo;
       dsply 'UPDATE SUCCESSFUL';
      /END-FREE



      /FREE
       BegSR UpdateCSREC;
      /END-FREE


     C/EXEC SQL
     C+ UPDATE TESTING/CUST SET CUSSTA = 'TX'
     C+ WHERE CUSSTA = 'TN'
     C/END-EXEC
      /FREE
       *inlr = *on;
       EndSR;


      /END-FREE
=============================================================

Cheers,

Mike.

_________________________________________________________________
Don't just search. Find. Check out the new MSN Search! 
http://search.msn.click-url.com/go/onm00200636ave/direct/01/