Embedded SQL mit Update

[Fuerchau]

Du musst den Select anpassen:

C/EXEC SQL
C+ Declare upzeig cursor for
C+ select prkhs, prfir, prdtjj, prdtmm, prdtdd, prart, przah,
C+ prsts, prsa, prtxt, prpro, prwer, prbis, prspe
C+ from preipf
C+ where prkhs = :cmnr and prfir = 3
C+ order by prfir, prart, przah

C+ for update

C/END-EXEC

[Fuerchau]

Es geht allerdings auch einfacher, z.B.:

update preipf
set
prpro = (case prart when '10' then :bkda else prpo end)
,ufwer = (case prart when '10' then :buep else ufwer end)
,.....
where prkhs = :cmnr and prfir = 3

analog dann für alle weiteren Felder.
Das geht schneller und auch übersichtlicher.

[Bernd Wiezroek]

Du musst den Select anpassen:

C/EXEC SQL
C+ Declare upzeig cursor for
C+ select prkhs, prfir, prdtjj, prdtmm, prdtdd, prart, przah,
C+ prsts, prsa, prtxt, prpro, prwer, prbis, prspe
C+ from preipf
C+ where prkhs = :cmnr and prfir = 3
C+ order by prfir, prart, przah

C+ for update

C/END-EXEC

werde ich sofort probieren
ich hatte ein Beispiel aus alten Unterlagen der Zusatz nicht drin ist.

[Bernd Wiezroek]

For Update erkennt der Compiler als fehlerhaft.
Ich versuche die Felder für 35 Datensätze zu ändern und wollte statt einer RPG- Schleife Sql verwenden (auch zur Übung).
Wegen der übersicht hab ich die meisten when statements gelöscht.