Aus Wikibooks

[Bearbeiten] Schlüsselwörter

Aufgrund der verschiedenen Cobolderivate sind nicht alle Schlüsselwörter auf jeder Cobol Plattform identisch, vorhanden oder mit gleicher Syntax nutzbar.

and	#continue	#display	#else	#evaluate
#move	#occurs	#or	#other	#pic
#true	#when

[Bearbeiten] continue

Eine leere Anweisung. Cobol erfordert in einem Block immer eine Anweisung. Das bedeutet, dass als direkte Anweisung hinter einem else kein end-if folgen darf. Ein kleines

continue

hilft hier jedoch.

[Bearbeiten] display

Anzeigen von Variablen auf der Konsole mit Zeilenumbruch

display <feld>

Stellt den Inhalt eines Feldes ("Picture Klause") auf der Kommandozeile dar. Es erfolgt ein automatischer Zeilenumbruch.

Anzeigen von Variablen auf der Konsole ohne Zeilenumbruch

display <feld> with no advanced

Stellt den Inhalt eines Feldes ("Picture Klausel") auf der Kommandozeile dar.

[Bearbeiten] evaluate

...ist die Mehrfachzweigung unter Cobol. Sie wird in Zusammenhang mit dem Schlüsselwörtern other und when verwendet. Häufig sieht man hierbei auch die Verwendung des Schlüsselwortes true

evaluate [true|<feld>]
  when <wahrheitswert>
    continue
  [when <anderer wahrheitswert>]*
  when other
    [...]
end-evaluate

Im Gegensatz zu anderen Programmiersprachen wie Java wird immer nur ein when Block ausgeführt. Ein Schlüsselwort analog zu break entfällt somit.

[Bearbeiten] move

Komplettes Kopieren

move <feld 1> <feld 2> [<feld 3>] [<feld n>]

Kopiert den Inhalt eines Quellfeldes in die angegebenen Zielfelder.

• Wenn das Quellfeld größer als das Zielfeld ist, wird das Zielfeld mit den möglichen Bytes beginnend mit dem ersten Byte des Quellfeldes aufgefüllt.
• Wenn das Quellfeld kleiner als das Zielfeld ist, wird das Zielfeld -je nach Typ- aufgefüllt. Bei "Zeichenketten"-Feldern wird das Feld hinten mit dem Default-Byte aufgefüllt. Wenn es sich um ein nummerisches Zielfeld handelt wird dieses von vorn mit 0 aufgefüllt.
• Wenn das Zielfeld ein numerisches Feld ist, das Quellfeld jedoch einen nichtnumerischen Inhalt hat gibt es einen Laufzeitfehler "Illegal Character in numeric Field".

[Bearbeiten] occurs

Definiere ein festes Array von Werten

<stufennummer> <feld-bezeichnung> <Picture Klause> occurs <Arraygröße>.

Arrays können ineinander verschachtelt werden.

[Bearbeiten] other

... wird in Zusammenhang mit der Mehrfachverzweigung verwendet.

[Bearbeiten] pic

Definition von Feldern

<stufennummer> <feld-bezeichnung> pic <feldtyp und laenge>.

Definition eines Ganzzahlfeldes

<stufennummer> <feld-bezeichnung> pic 9.
<stufennummer> <feld-bezeichnung> pic 9(<feldlaenge>).

Definiert ein Feld mit der Länge 1 bzw. mit der angegebenen Feldlänge. Alternativ zur Klammernschreibung können auch die Anzahl der "Neunen" hintereinanger angegeben werden.

[Bearbeiten] true

... ist der "positive" Wahrheitswert.

[Bearbeiten] when

... wird in Zusammenhang mit der Mehrfachverzweigung verwendet.