Re: SQL Update in RPGLE.

If this can help, the line with commit = *none, is there to let you compile
without option commit(*NONE)
I take this from the list also.

----- Original Message ----- 
From: <FrankKany@xxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, March 30, 2006 10:07 PM
Subject: Re: SQL Update in RPGLE.


> Give this a try, put this portion of code in your *INZSR:(pulled from this
> list)
> C/EXEC SQL
> C+ Set Option
> C+     Naming    = *Sys,
> C+     Commit    = *None,
> C+     UsrPrf    = *User,
> C+     DynUsrPrf = *User,
> C+     Datfmt    = *iso,
> C+     CloSqlCsr = *EndMod,
> C+     Commit    = *NONE
> C/END-EXEC
>
> Compile your program with COMMIT(*NONE).
>
> I hope this helps.
>
> Frank W. Kany IV
> Senior Programmer/Analyst
> Unipres USA, Inc.
> http://www.unipres.com
>
> "Work to LIVE, not live to work."
>
>
>
> "Mike Troxclaire" <mike_troxclaire@xxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 03/30/2006 01:58 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> rpg400-l@xxxxxxxxxxxx
> cc
>
> 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/
>
> -- 
> 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.
>
>
>
> -- 
> 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.
>
>