RE: SQL Update in RPGLE.

Mike,

I assume there's more to your code as what is there doesn't make sense.

The SQL statement always updates the same set of records, why run it for
every record in your customer file unless there is only one record in
the file; in which case why read the customer file at all.

What other messages are in the joblog?  You don't by chance see anything
about the file not being journaled do you?

By default, the CRTSQLRPGI command has COMMIT(*CHG), thus any files
changed using SQL would need to be journaled.

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Troxclaire
> Sent: Thursday, March 30, 2006 2: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/
> 
>