Erklaerung einer cobol anweisung

was bedeutet folgende cobol-anweisung?

01 FL-EFFZSP COMP-2 VALUE ZERO

was bedeutet folgende cobol-anweisung?

01 FL-EFFZSP COMP-2 VALUE ZERO

also „Anweisung“ würde ich das nicht nennen ! Das ist eine „Variablendeklaration“; das Feld ist numerisch und automatisch mit Null initialisiert. Über die (maximal zulässige) Länge kann ich Nichts sicheres sagen, vermutlich sowas wie die größte Zahl, die man im hexadezimalen system mit 4 Byte darstellen kann dividiert durch 2 (wg. der negativen Zahlen).

eljot

Hi!

01 FL-EFFZSP COMP-2 VALUE ZERO

Ist eine Variablen-Deklaration

01 = Deklarationsstufe (COBOL ist sehr stark auf Redefinierung ausgerichtet, eine Variable kann -zig mal redefiniert werden)

FL-EFFZSP = Variablenname

COMP-2 = Variable ist numerisch und wird im Binärmuster 2 abgelegt (im Gegensatz dazu die Deklaration über PIC-Muster, z.B. PIC(999), was eine Variable als dreistellige Ganzzahl definiert)

VALUE = Wertzuweisung auf Deklarationsebene (sonst hat die Variable zufälligen Inhalt, was dann zum berüchtigten Fehler Oc4 führen kann)

ZERO = der Wert, der zugewiesen wird, hier 0

Alles roger?

Grüße
Siegfried

wenn du mir jetzt noch sagen koenntest, was in cobol ein

binärmuster2 ist, dannnnn waere alles roger…

comp-2 war das einzige was ich mir nicht einleuchtete

Hi Dog!

wenn du mir jetzt noch sagen koenntest, was in cobol ein

binärmuster2 ist, dannnnn waere alles roger…

comp-2 war das einzige was ich mir nicht einleuchtete

COMP = binäres Format

COMP-1 Gleitkommaformat in einem Wort ( = einfache Genauigkeit)

COMP-2 Gleitkommaformat in einem Doppelwort ( = doppelte Genauigkeit)

COMP-3 gepacktes Format (Standard in Cobol, wenn kein anderes Format angegeben)

Hope It Helps!
Siegfried