Zitat Zitat von Fuerchau Beitrag anzeigen
@Dieter:
Wenn man den GOBACK vermeiden will, ist die Kombination EXIT PROGRAM, STOP RUN erforderlich.
Wenn ein COBOL-Programm das erste der Rununit ist, macht das Programm nach dem EXIT PROGRAM nämlich weiter.
Ist das nicht die letzte Anweisung der Quelle, läuft der in die nächsten Routinen rein, egal ob SECTION oder nicht.
... ich habe da mal gelernt:
im COBOL Steuerprogramm (erstes der Run Unit) Ende mit STOP RUN.
in COBOL Sub Programmen EXIT PROGRAM.
und habe das auch auf /36 AS/400 und unter MVS immer so gemacht.
Und wenn ich die COBOL Reference richtig gelesen habe, dann lässt der EXIT PROGRAM AND CONTINUE RUN UNIT. die ACTGRP am Leben.

D*B