Cobol Compilererror

[Fuerchau]

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.

[Pikachu]

Ich sag nur: READE

[KingofKning]

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...

[Pikachu]

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

Das liegt nicht am Editor, sondern ist eine Eigenschaft von HTML, das grundsätzlich mehrere Leerzeichen und Zeilenumbrüche zu einem einzigen Leerzeichen zusammenfaßt.

Tippe oben auf # oder php damit ein spezieller HTML-Block geöffnet wird, in dem alle Leerzeichen mit ausgegeben werden.

[nico1964]

Weil Cobol einfach lesbarer ist als RPG (wenn es nicht gerade free-rpg ist)

GG

Nicht nur lesbarer, ich arbeite seit 1989 mit selbst entwickelten Cobol-Anwendungen und die derzeitige wurde auch um diese Zeit entwickelt. Und die Logik dahinter möchte ich nicht unbedingt neu erfinden
Gruß
Andreas

[Fuerchau]

"Never change ..." usw.

Ich muss auch gerade eine alte Cobol-Anwendung erweitern (auf V5R2).
Nun hat sich da auch noch SQL eingeschlichen und schon fangen die Schwierigkeiten an.

Neu Dateien haben schon mal gepackte Felder mit 20 oder mehr Stellen.
COBOL kann nur 18 Stellen.
Nunja, per Compileroption kann man auf Extend31/63 umschalten, dann klappt das auch.

Allerdings gilt das nicht für den SQL-Precompiler für Cobol, der lässt weiterhin nur 18 Stellen zu .
Eine Compile-Option habe ich da nicht gefunden.

Also muss ich an diesen Stellen dann nun doch ILERPG-Unterprogramme einbauen.
Mal sehen, wer dass dann irgendwann noch versteht.

[nico1964]

Na bumm, da wünsche ich Dir viel Spaß dabei, muss ja bei uns hauptsächlich nur unsere alte Anwendung am Leben erhalten, da jeder bisherige Versuch einer Ablöse durch ein modernes EDV-System klaglos zum Scheitern verurteilt war.(Nachbau der gesamten Buisnesslogik, monatliche Batches und Kommunikation zu Fremdsystemen u.a. SAP).
Aber trotz allem versuche ich nun dem gesamten eine modernen Anstrich zu verpassen, wobei die Logik hinter den Online-Programmen so weit wie möglich erhalten bleiben muss.