NUMVAL-C - Numerischer Wert einer Zeichenkette mit optionalem Währungszeichen

Die NUMVAL-C-Funktion liefert den numerischen Wert, den die mit argument-1 angegebene Zeichenkette darstellt. Das wahlweise mit argument-2 angegebene Währungszeichen bleibt ebenso unberücksichtigt wie jedes wahlweise dem Dezimalpunkt vorausgehende Komma.
Funktionstyp: numerisch.

Format

---

FUNCTION NUMVAL-C (argument-1 [argument-2])

---

Argumente

1. argument-1 muss von der Kategorie alphanumerisch oder national sein und eines der folgenden zwei Formate besitzen:

   ['BLANK'] [+ | -] ['BLANK'] [wz] ['BLANK'] {digit[,digit]...[.[digit]] | .digit} ['BLANK']
oder
['BLANK'] [wz] ['BLANK'] {digit[,digit]...[.[digit]] | .digit} ['BLANK'] [+ | - | CR | DB ] ['BLANK']


   'BLANK'	ein oder mehr Leerzeichen
   wz	Währungszeichen: Zeichenkette mit einem oder mehreren Zeichen (argument-2)
   digit	ein oder mehrere Ziffern aus der Menge 0, 1, 2, 3, 4, 5, 6, 7, 8, 9

2. Für CR und DB ist die Buchstabenfolge „CR“ bzw. „DB“ in Großbuchstaben anzugeben.

3. Ist die DECIMAL-POINT IS COMMA-Klausel im SPECIAL-NAMES-Paragrafen angegeben, werden die Funktionen von Komma und Dezimalpunkt in argument-1 vertauscht.

4. Die Gesamtzahl der Ziffern in argument-1 darf 31 nicht überschreiten.

5. argument-2 muss, wenn angegeben, von derselben Klasse wie argument-1 sein.

6. Ist argument-2 nicht angegeben, wird als Währungszeichen das programmspezifische Währungszeichen-Symbol verwendet.

Returnwerte

1. Der Returnwert ist der numerische Wert von argument-1.

2. Hat argument-1 eine variable Länge oder eine Länge mit mehr als 16 Zeichen (bzw. mehr als 14 Zeichen, wenn der Fehler-Returnwert verlangt wird), so kann das Ergebnis vom exakten Wert abweichen, da für den Returnwert eine Gleitpunktdarstellung erforderlich ist.
3. Hat argument-1 eine feste Länge mit bis zu 14 Zeichen, so ist der Fehler-Returnwert -999’999’999’999’999’999.
   Hat argument-1 eine variable Länge oder eine Länge mit mehr als 14 Zeichen, so ist der Fehler-Returnwert -9’999’999’999’999’999’999’999’999’999’999.

Siehe auch: NUMVAL

Beispiel 9-32

...
DATA DIVISION.
WORKING-STORAGE SECTION.
01  V PIC X(8) VALUE "- $15.00".
01  R PIC 99V99.
01  RES PIC 99.99.
PROCEDURE DIVISION.
P1 SECTION.
MAIN.
    COMPUTE RES = FUNCTION NUMVAL-C (V).
    DISPLAY RES UPON T.
    STOP RUN.

Ergebnis: 15.00