COBOL mit Rollback und Commit

[wolfinho]

Fast komplett:

I-O-CONTROL.
COMMITMENT CONTROL FOR MyFile1 [MyFile2] ...

Bei der Umwandlung ist nichts zu beachten, da die Commit-Art (*CHG) von außen durch STRCMTCTL gesteuert wird.

Wenn du allerdings mit embedded SQL arbeitest, reicht:

EXEC SQL SET OPTION COMMIT=*CHG
END-EXEC

aus.

Hallo nochmal,

vielen Dank für die Antworten. Leider bekomme ich bei der Umwandlung des COBOL-Programmes mit embedded SQL jetzt den folgenden Fehler:

SQL0084: Position 14 SQL-Anweisung nicht zulässig.

In der Hilfe habe ich folgendes gefunden:

-- Die Anweisung SET OPTION ist nur in REXX, in einem vorkompilierten Programm oder in SQL-Routinen zulässig. In einem vorkompilierten Programm ist sie nur als erste SQL-Anweisung in dem Programm zulässig.

Die SET-Option Anweisung habe ich aber bereits gleich zu Beginn meines Programmes:

PROCEDURE DIVISION.
STEUERUNG SECTION.
STEUERUNG-01.
EXEC SQL
SET OPTION COMMIT=*CHG
END-EXEC
IF SQLCODE NOT = ZERO
PERFORM UP-SQL-ERROR
END-IF
EXEC SQL
WHENEVER SQLERROR GOTO UP-SQL-ERROR
END-EXEC
PERFORM VORLAUF
PERFORM VERARBEITUNG
PERFORM NACHLAUF
PERFORM UP-PGM-ENDE.
STEUERUNG-99.
EXIT.


?????????

Kann es an der Definition der Cursor

EXEC SQL
DECLARE CDPI018 CURSOR FOR
SELECT
*
FROM
TADWI018
ORDER BY
RZBK,
DATABGESCH,
NRKONTO
END-EXEC.

oder an der Definition der SQLCA

EXEC SQL
INCLUDE SQLCA
END-EXEC.

in der Working-Storage Section liegen


?????