Re: SQL Update In Place

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

Where Current Of...course! :) Thanks Birgitta...Happy New Year.

On Fri, Jan 2, 2009 at 12:17 PM, Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx> wrote:
> Hi,
>
> 1. Specify the columns to update in your declare statement
> 2. Specify "where current of cursor" in your update statement.
>
> Example
>
> Exec SQL
>   Declare CsrC1 Cursor For
>      Select ....
>      For Update of Col1, Col2, Col3, ... ColN;
>
> ...
> DoW 1=1;
>
>   Exec SQL
>      Fetch Next From CsrC1 into :DSCols;
>
>   If SQLCOD = 100 or SQLCOD < *Zeros;
>      Leave;
>   EndIf;
>
>   //Do whatever you want, for examples fill the host variables used for
> update
> ...
>
>   Exec SQL
>      Update MyTable
>         Set Col1 = :HostVal1, Col2 = :HostVal2, ...
>      Where Current Of CsrC1;
>
> EndDo;
>
>
> Mit freundlichen Grüßen / Best regards
>
> Birgitta Hauser
>
> "Shoot for the moon, even if you miss, you'll land among the stars." (Les
> Brown)
> "If you think education is expensive, try ignorance." (Derek Bok)
> "What is worse than training your staff and losing them? Not training them
> and keeping them!"
>
>
> -----Ursprüngliche Nachricht-----
> Von: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] Im Auftrag von Michael Ryan
> Gesendet: Friday, 02. January 2009 17:54
> An: Midrange Systems Technical Discussion
> Betreff: SQL Update In Place
>
> Am I over thinking this? How do I update a record in place in embedded
> SQL? I have a Fetch loop; I now want to update the record I just
> fetched. Do I have to specify selection criteria in the update?
> Thanks!
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.