Programmiersprache - Retroware.de

COBOL 39
Dezimaltrennzeichen (V) etc., und bestimmen eine elementare Variable damit als entweder alphabetisch,
alphanumerisch, numerisch oder numerisch-editiert.
In COBOL wird die Formatierung für sichtbare Ausgabe eben durch die Datendeklaration erledigt, nicht durch
prozedurale Anweisungen wie in Sprachen wie Pascal oder C. Den Rest der insgesamt etwa 60 möglichen Klauseln
einer Datendeklaration möge man in einem COBOL-Handbuch nachschlagen.
Prozedurale Anweisungen
In der Procedure Division findet sich der ausführbare Programmcode. Die Ausführung beginnt mit der ersten
Anweisung hinter der Überschrift Procedure Division bzw. den DECLARATIVES, deren Ausführung nur durch
bestimmte Ereignisse ausgelöst wird. Danach werden alle Anweisungen sequentiell ausgeführt, bis ein STOP RUN
das Programm beendet, oder ein GO TO zu einer anderen Stelle im Programm verzweigt.
Die Procedure Division besteht aus einer oder mehreren Prozeduren. Eine Prozedur ist entweder
• eine Section: Ein Name, der in Spalte 8 beginnt gefolgt von dem Schlüsselwort SECTION und einem Punkt.
• eine Gruppe von Sections
• ein Paragraph: Ein Name, der in Spalte 8 beginnt und mit Punkt endet.
• eine Gruppe von Paragraphs
Eine solche Prozedur besteht dann aus einem oder mehreren Cobol-Anweisungen (Statements).
Prozeduren können mit der Cobol-Anweisung Perform ausgeführt werden. Es gibt keine formale
Parameterübergabe, alle Prozeduren haben Zugriff auf alle Felder in der Data Division.
Mittels CALL können externe Programme (Cobol oder andere Programmiersprachen) aufgerufen werden. Dabei
werden Parameter By Reference oder By Content übergeben, wodurch unterschieden wird, ob das aufgerufene
Programm übergebene Variablen im aufrufenden Programm ändern kann.
Cobol unterstützt (wenn auch mühselig) die strukturierte Programmierung; die Verwendung des ebenfalls zulässigen
GOTOs ist heute verpönt. In der professionellen Programmierung herrschen hausinterne Programmierstandards,
welche in der Mehrzahl festlegen, dass Prozeduren ausschließlich aus einer Section bestehen.
Ziel der Cobol-Syntax soll sein, dass auch ein nicht an formale Programmiersyntax gewohnter Mensch den Sinn
eines Cobol-Programm erahnen kann (wenn er oder sie etwas Englisch kann). Alle Cobol-Anweisungen beginnen
mit einem Verb, und davon gibt es viele.
Einfache Codeschnipsel
Zur Darstellung der Syntax wird einfaches C (oder Java) zu Hilfe genommen.
• Ein a = b; ist in Cobol MOVE b TO a.
• Wenn es zum Beispiel in C heißt a = b + c;, dann schreibt ein Cobol-Programmierer entweder ADD b TO c
GIVING a oder alternativ COMPUTE a = b + c.
• Ein a++; in C entspricht auf Cobol ADD 1 TO a.