Hallo zusammen,

ich habe folgendes COBOL-Problem:

innerhalb eines COBOL-Programmes mit embedded SQL fange ich SQL-Fehler durch folgende Anweisung ab:

EXEC SQL
WHENEVER SQLERROR GOTO UP-SQL-ERROR
END-EXEC

UP-SQL-ERROR Section holt sich aus der SQLCA gewisse Informationen, schreibt diese in eine Protokolltabelle und mach dann einen GOBACK.

Allerdings wäre es Wartungsfreundlicher, wenn das Programm nicht wie in diesem Falle fehlerfrei beendet werdeb würde, sondern das Programm mit einer Fehlermeldung abbricht.

In der COBOL-Reference habe ich den STOP literal - Befehl gefunden. Leider hält dieser das Programm nur an und schreibt eine Message in die Nachrichtendatei *SYSOPR.

Idealerweise wäre aber eine sofortige Beendigung des Programmes mit einer Fehlernachricht.

Kenn jemand eine COBOL-Anweisung, mit der ich einen Abbruch des Programmes mit einer Fehlermeldung erreichen kann ?

Auf dem Großrechner mußte vor dem GOBACK nur folgende Anweisung durchgeführt werden: MOVE 12 to RETURN-CODE

Leider kennt das COBOL auf der i5 scheinbar keinen Return-Code, zumindest kann man diesen nicht explizit ansprechen.


Vorab vielen Dank für eure Hilfe und allen noch einen schönen Feierabend.