SQL - Fehler

[Kaufmann]

1. Es wird kein ROLLBACK oder COMMIT verwendet.
2. Ich habe die Zeile auch mit
C/EXEC SQL
C+ OPEN C1
C/END-EXEC

probiert => gleiches Ergebnis

[Fuerchau]

Das Problem ist eigentlich ein ganz anderes:

Positioned UPDATE statements identifying the cursor associated with a select-statement can update all
updateable columns, if:
v The select-statement does not contain one of the following:
– An UPDATE clause
– A FOR READ ONLY clause
– An ORDER BY clause
v The DECLARE CURSOR statement does not contain a SCROLL keyword without the DYNAMIC
keyword.

Ich denke, dass SQL eher hier ein Problem hat und der Folgeaufruf nur ein Folgefehler ist.
Lass das Order-By weg oder verwende einen "Update where".

[pwrdwnsys]

Grundsätzlich bei allen SQL-Problemen: es ist immer das einfachste, den Debugger im Job zu starten und hinterher das Joblog zu betrachten. Steht alles exakt drin. Kann der Debugger nicht direkt gestartet werden, (z.Bsp. wg. Remote SQL) Dann die Abfrageoptionsdatei QAQQINI anpassen und den Parameter "MESSAGES_DEBUG" auf "*YES" setzen. Die QAQQINI muss dabei in der QGPL stehen, die Ursprungsdatei ist in der QSYS. Einfach kopieren.

[Fuerchau]

Achtung: CRTDUPOBJ und nicht CPYF ... CREATE(*YES) !

[Kaufmann]

Der Fehler lag bei der Umwandlung.

Ich habe
CRTSQLRPGI OBJ(SCHUELLERO/NACHT547) SRCFILE(SCHUELLERS/QRPGLESRC)
OBJTYPE(*MODULE) DBGVIEW(*SOURCE)

gemacht.

Mit CRTSQLRPGI OBJ(SCHUELLERO/NACHT547) SRCFILE(SCHUELLERS/QRPGLESRC)
COMMIT(*CHG) OBJTYPE(*MODULE) DBGVIEW(*SOURCE) geht es.

Grund:
Die COMMIT-Steuerung ---> COMMIT(*CHG)

[Fuerchau]

Das kannst du in der Quelle per
c/exec sql set option commit=*chg
c/end-exec
auch machen.
Bist du sicher, dass die Dateien auch im Journal aufgezeichent werden ?
Wenn ja, wird STRCMTCTL vor dem Programm gestartet und wann werden deine Updates COMMITed?

Wenn nein, dann kann mit COMMIT=*NONE das ganze abgeschaltet werden.