IF in COBOL funktioniert nicht immer

[pwrdwnsys]

Sprungmarke 2x ?
=> Wird vom Compiler bereits abgelehnt
IF-Abfragen überrennen ?
=> nur bei Dezimalfehlern, die ignoriert werden, hier wird aber ein Zeichenvergleich gemacht

Der einzige Grund kann sein, dass ein
READ ... AT END
oder
READ ... INVALID KEY
nicht korrekt mit GOTO oder Status-Feld abgefangen wird und somit der IF auf den vorherigen Inhalt vergleicht.

Ungter V5R3 leider noch keine Ablehnung. Aber fatal ist folgendes:

AAA SECTION.

GOTO MARKEXXX.
EXIT.

BBB SECTION.
MARKEXXX.
EXIT.

Führt auch dazu, das das Programm macht was es will. Wenn ich dann einen Trace der ausgeführen Anweisungen anschaue, läuft das Programm zum Anfang und dann (meist) 1x komplett bis zum Ende durch, ohne sich an Sectiongrenzen oder IF's zu stören. Hatte ich schon ein paar mal in diversen Programmen.

Fazit: Wodurch unterscheiden sich gute von schlechten Programmierern ? Die guten denken daran, nach dem Kopieren alle betroffenen Stellen zu ändern!

-K.-

[Fuerchau]

Section-Grenzen stimme ich zu, "IF" stimme ich nicht zu.

Wenn man sich mal die Mühe gemacht hat, den MI-Code zu studieren, sieht man folgendes:

Ein Perform setzt für eine Section bzw. einen Paragraph eine Rücksprungadresse.

Wird nun an Stelle des Perform ein GO TO verwendet, erfolgt der Rücksprung mit der zuletzt gemerkten Adresse.
War diese mangels Perform nicht initialisiert, läuft das Programm da weiter.

Das ist auch der Grund, warum ein rekursiver Perform nicht funktioniert, da Rücksprünge nicht über einen Stack laufen.

RPG/LE kennt das i.Ü. genauso.
Ich kann zwar nicht per GOTO in eine BEGSR-Routine springen, das lehnt der Compiler ab.
Was der aber nicht verhindert ist eine Rekursion von EXSR-Aufrufen, was mir schon mal passiert ist.

Auch hier sieht man in der MI-Auflösung, dass die EXSR-Anweisung nur die Rücksprungadresse (per GOTO) des ENDSR setzt.

EXSR UPA

UPA BEGSR
EXSR UPB
EXSR UPC
ENDSR

UPB BEGSR
: tuwas
ENDSR

UPC BEGSR
EXSR UPA <= Dieser überschreibt den Rücksprung von ganz oben
ENDSR

[pwrdwnsys]

Section-Grenzen stimme ich zu, "IF" stimme ich nicht zu.

.....

Stimmt, dabei hätte ich geschworen, das ich den Fall vor langer Zeit mal gehabt habe. Hab versucht den Fehler zu provozieren - leider (oder zum Glück) vergeblich !

K.