Re: Question on embedded SQL in RPG with Update

[Gene Burns <burns.gene@xxxxxxxxx>]

Try adding FOR UPDATE OF dedsc1 to your DECLARE statement.



On Mon, Mar 23, 2009 at 10:58 AM, Tom Deskevich <
thomas.l.deskevich@xxxxxxxxxxxxx> wrote:

> I am trying to do an update while in a loop with embedded SQL in RPG.
>
> When I enable the update, SQLSTATE returns 24501 and nothing seems to be
> put
> in the buffer.
>
> When disable the update, it runs fine.
>
> I cannot find any examples of updating using embedded SQL.
> I have the file format referenced in the UPDATE. I had the name of the
> physical file.
> Worked the same. I also tried using the name of the external data
> structure,
> same results.
>
> Here is my code:
>
> FQsysprt   O    F  120        PRINTER OFLIND(*InOF)
> DPRODOCKE       E DS                  EXTNAME(XXXPY70P)
> C/EXEC sql
> C+ DECLARE A CURSOR FOR
> C+ SELECT *
> C+ FROM XXXPY70P
> C+ WHERE SUBSTR(DEDSC1, 68, 3) > '   '
> C+ AND SUBSTR(DEDSC1, 70, 1) <> 'N'
> C/end-exec
> C/EXEC sql
> C+   OPEN A
> C/end-exec
> C     SQLSTATE      Downe     '02000'
> C/EXEC sql
> C+   FETCH A INTO :PRODOCKE
> C/end-exec
> C                   If        sqlstate='02000'
> C                   leave
> C                   Endif
> C/exec sql
> C+    update xxxpy70f                              <<< when enabled, no
> recs
> end up in buffer
> C+ set dedsc1= substr(dedsc1,1,67) CONCAT '   '    <<< disabled, prints all
> recs that qualify
> C+ WHERE CURRENT OF A
> C/end-exec
> C**                 except    print
> C                   Enddo
> C/EXEC sql
> C+  CLOSE A
> C/end-exec
> C                   eval      *inlr=*on
> OQsysprt   E            print          2
> O                       deccy
>
>
>
> Tom Deskevich
> Infocon Corporation
> Phone 814-472-6066
> Fax 814-472-5019
>
>
> --
> This is the RPG programming on the IBM i / System i (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.