Prorammverhalten unter 5.4 <=> 6.1

[Dschainers]

Programm mal mit COMMIT(*NONE) umwandeln

[Fuerchau]

Der SQL ist normalerweise immer auf Kommentar, da er durch den Precompiler ersetzt wird.
Mit F15 auf Spool-Sicht umschalten um den tatsächlichen RPG-Code zu sehen.
Außerdem sollte man nach dem SQL-Befehl mal den SQLCOD auswerten.

[urrumpel]

@Fuerchau
Da hatte ich anscheinend Tomaten auf den Augen, das SQL war in beiden Fällen, -wie es sich gehört- im DEBUG ausgesternt.
SQLCOD auslesen ist mir nicht eingefallen - merke ich mir für nächstes Problem, Danke.
C*exec sql
C* UPDATE IDPCD1AA SET IDSOID = :P1OID WHERE CURRENT OF S1
C*end-exec
C EVAL SQL_00043 = P1OID SQLCOD 0
C Z-ADD -4 SQLER6
C CALL SQLROUTE
C PARM SQLCA
C PARM SQL_00038
1. Lauf: SQLCOD = -000000508
2. Lauf: SQLCOD = 000000000


SQL0508SQLCODE-508SQLSTATE24504
Explanation: Cursor&1notpositionedonlockedrow

[Pikachu]

Ist denn die LIBL wirklich die gleiche? Vielleicht ändert das Programm ja die LIBL?

Am besten vor jedem Programmaufruf mal ein WRKOBJ OBJ(*LIBL/Programmname) OBJTYPE(*PGM) machen und vergleichen.

Die Debugansicht (1) mit ausgesternten SQL-Anweisungen deutet darauf hin, daß das Programm mit CRTSQLCBL OPTION(*LSTDBG) gewandelt wurde.

Die Debugansicht (2) mit nicht ausgesternten SQL-Anweisungen deutet darauf hin, daß das Programm mit CRTSQLCBLI DBGVIEW(*SOURCE) gewandelt wurde.

Oder wird das Programm vor dem zweiten Durchlauf neu gewandelt?

[urrumpel]

Nochmals vielen Dank für die schnelle, kompetente Hilfe an alle.
@Pikachu
SQL ILE RPG-Objekt erstellen (CRTSQLRPGI)
'*LSTDBG ' für Parameter OPTION ungültig.
=> Das Problem mit dem nicht ausgesternten SQL im DEDBUG ist wohl auf einen Fehler zwischen Stuhl und Tastatur zurückzuführen -(
=>Drückt man im Debug F8, sieht man nicht alles, was ganz links so steht...

[Pikachu]

@Pikachu
SQL ILE RPG-Objekt erstellen (CRTSQLRPGI)
'*LSTDBG ' für Parameter OPTION ungültig.

Achso, du hast ja RPG. Da geht bei ILE natürlich kein CRTSQLRPG (wo es diesen Parameter gibt) wie bei COBOL mit CRTSQLCBLI und CRTSQLCBL.

[urrumpel]

Vielen Dank. COMMIT = *NONE hat geholfen