Welche Bedeutung hat dieser Code am Recht der Variablendeklaration in Cobol? - Cobol

Ich habe einen Cobol-Code studiert und finde eine Zahl rechts neben der Codezeile, so wie unten auf dieser Seite:

007900     03  EXAMPLE-NAME       PIC S9(17)  COMP-3.              EB813597

Die erste Zahl bezieht sich auf die Position dieser Zeile im Code, die zweite bezieht sich auf die Position der Spalte (wie viele "Tabs" Sie verwenden), die dritte ist der Typ der Variablen, die vierte jedochCOMP-3) und vor allem der letzte (EB813597) Ich habe es nicht verstanden.

Kann mir jemand helfen ?

Antworten:

Spalten> = 72 werden ignoriert. So EB813597 wird ignoriert. Es könnte sich um eine Änderungs-ID vom letzten Mal, an der sie geändert wurde, handeln oder eine bestimmte Site-spezifische Bedeutung haben, z. EB könnte die Initialen der Person sein, die es zuletzt geändert hat.

Comp-3 - ist der Typ der Zahl. Es ist ein bisschen wie die Verwendung von int oder double in C / java. In Comp-3 (gepackt dezimal) wird 123 als x "123c" gespeichert. Alternativen zu comp-3 beinhalten comp - normalerweise big endian binary integer, comp-5 (wie int / long in C)

007900     03  EXAMPLE-NAME       PIC S9(17)  COMP-3.              EB813597
(a)      (b)  Field-Name         (c)  (d)    Usage (numeric type)


a - line-number ignored by the compiler
b - level-number it provides a method of grouping fields together

01  Group.
03 Field-1 ...
03 Field-2 ...

field-1 and field-2 belong to group. it is a bit like struct in c

struct {
int field_1;
int field-2;
...
}
c) PIC (picture) tells us the field picture follows.
d) fields picture in this case it is a signed field with 17 decimal digits
Comp-3 - usage - how the field stored

Also zusammenfassend BEISPIEL-NAME ist ein Unterzeichnet numerisches Feld mit 17 Dezimalstellen und es wird als gespeichert Comp-3 (gepackt dezimal).