Die LENGTH-Funktion liefert eine ganze Zahl, die die Länge von argument-1 in Zeichenpositionen darstellt.
Funktionstyp: ganzzahlig.
Format
FUNCTION LENGTH (argument-1)
Argumente
argument-1 kann ein nichtnumerisches Literal oder ein Datenelement jeder Klasse oder Kategorie oder ein Typname sein.
Ist irgendein argument-1 untergeordnetes Datenfeld mit der DEPENDING-Angabe der OCCURS-Klausel beschrieben, so wird der Inhalt des DEPENDING-Datenfeldes zum Zeitpunkt der Auswertung der LENGTH-Funktion verwendet.
Returnwerte
Wenn argument-1 ein nichtnumerisches Literal, ein Datenelement oder ein Gruppenfeld ist, das kein variabel langes Datenfeld enthält, dann ist der Returnwert eine ganze Zahl, die die Länge von argument-1 in Zeichenpositionen darstellt.
Handelt es sich bei argument-1 um eine Objektreferenz, so wird die Länge der Objektreferenz und nicht die Größe des Objektes selbst geliefert.
Ist argument-1 ein Gruppenfeld, dem ein variabel langes Datenfeld untergeordnet ist, so ist der Returnwert die Länge von argument-1 in Bytes. Sie berechnet sich entsprechend den Regeln für ein Sendefeld mit OCCURS-Klausel.
Der Returnwert zählt vorkommende implizite FILLER-Zeichen in argument-1 mit.
Beispiel 9-20
...
DATA DIVISION.
WORKING-STORAGE SECTION.
01 RES PIC 9(3).
PROCEDURE DIVISION.
MAIN.
COMPUTE RES = FUNCTION LENGTH ("anita beiss sie, bat ina").
DISPLAY RES UPON T.
STOP RUN.
Ergebnis: 024