Zitat Zitat von Fuerchau Beitrag anzeigen
Nunja, COBOL war schon immer mehr was für Romanschreiber, z.B.:

COBOL:

write mydsp [from DSPFMT-O] format is "DSPFMT"
read mydsp [into DSPFMT-I] format is "DSPFMT"
[move corr DSPFMT-I to DSPFMT-O]

ILE/RPG

EXFMT DSPFMT

Da gibt es sicherlich noch eine Vielzahl ähnlicher Beispiele.
Kann man so machen, muß man aber nicht.

00064 PERFORM Z0150-F-ND
00065 PERFORM Z0150-F-CL
00066 PERFORM Z0150-F-OO
00067 IF NOT DATEI-OK
00068 PERFORM Z0150-F-ER
00069 GO TO ST-99
00070 END-IF.

Hier wird eine neuer Dateiname vergeben, die Datei geschlossen und zum Schreiben geöffnet und beim Fehler eine Fehlerroutine angesprungen.
Machen wir seit 20 Jahren so das wir alles in Module ausgelagert haben.

Aber Du bist halt Fan von RPG ich nicht. Lassen wir es wie es ist...

GG

Und warum der blöde Editor hier immer alle Leerzeichen löscht versteh ich auch nicht...