Die NATIONAL-OF-Funktion liefert eine Zeichenfolge, die die Zeichen des Arguments konvertiert zu nationaler Darstellung enthält.
Funktionstyp: alphanumerisch.
Format
FUNCTION NATIONAL-OF (argument-1 [argument-2])
Argumente
argument-1 muss von der Klasse alphabetisch oder alphanumerisch und mindestens ein Zeichen lang sein.
argument-1 darf nicht mit der ANY LENGTH-Klausel definiert sein.
argument-2 muss von der Klasse national und genau ein Zeichen lang sein. Bei der Konvertierung im Ergebnis gibt argument-2 ein Ersatzzeichen an Stelle derjenigen alphanumerischen Zeichen an, für die es keine entsprechenden nationalen Zeichen gibt.
Returnwerte
Es wird als Returnwert eine Zeichenfolge geliefert, in der jedes alphanumerische Zeichen aus argument-1 zu seinem entsprechenden Zeichen in nationaler Darstellung konvertiert ist.
Ist argument-2 angegeben, dann wird jedes Zeichen aus argument-1, für das es kein entsprechendes Zeichen in nationaler Darstellung gibt, zu dem durch argument-2 angegebenen Ersatzzeichen konvertiert.
Ist argument-2 nicht angegeben und enthält argument-1 Zeichen, für die es kein entsprechendes Zeichen in nationaler Darstellung gibt, werden diese zu einem von XHCS festgelegten Ersatzzeichen konvertiert (Punkt ’.’). Die Ausnahmesituation EC-DATA-CONVERSION tritt auf.
Der Returnwert enthält genauso viele Zeichen wie argument-1.
Der Fehler-Returnwert ist ein Leerzeichen.
Steht FUNCTION NATIONAL-OF als Sendefeld in einer MOVE-Anweisung, für die die Überprüfung der Ausnahmesituation EC-DATA-CONVERSION eingeschaltetet ist und auch eine USE-Prozedur existiert, so bleibt das Empfangsfeld unverändert, wenn die Ausnahmesituation auftritt. Den Gegensatz dazu bildet eine entsprechende MOVE-Anweisung mit impliziter Konvertierung.
Siehe auch: DISPLAY-OF
Beispiel 9-30
...
DATA DIVISION.
WORKING-STORAGE SECTION.
01 alfa PIC XXX VALUE "ABC".
01 R PIC NNN.
PROCEDURE DIVISION.
MAIN.
MOVE FUNCTION NATIONAL-OF (alfa) TO R.
STOP RUN.
Ergebnis: R enthält die Zeichen ABC in UTF-16-Darstellung.