Re: SQL Update in RPGLE.

Well, you have the file defined in UPDATE mode, so the read on the file has
locked that record. So the SQL will not execute.

There's no need to USE SQL to update the file.  Instead  replace that code
with.

If CUSSTA = 'TX';
  CUSSTA = 'TN';
   Update CSREC;
EndIf;


Michael Schutte
Work 614-492-7419
email  michael_schutte@xxxxxxxxxxxx


                                                                           
             "Mike Troxclaire"                                             
             <mike_troxclaire@                                             
             hotmail.com>                                               To 
             Sent by:                  rpg400-l@xxxxxxxxxxxx               
             rpg400-l-bounces@                                          cc 
             midrange.com                                                  
                                                                   Subject 
                                       SQL Update in RPGLE.                
             03/30/2006 02:58                                              
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




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/

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