Die DISPLAY-OF-Funktion liefert eine Zeichenfolge, die die Zeichen des Arguments konvertiert zu alphanumerischer Darstellung enthält.
Funktionstyp: alphanumerisch.
Format
FUNCTION DISPLAY-OF (argument-1 [argument-2])
Argumente
argument-1 muss von der Klasse national und mindestens ein Zeichen lang sein.
argument-1 darf nicht mit der ANY LENGTH-Klausel definiert sein.
argument-2 muss von der Klasse alphabetisch oder alphanumerisch und genau ein Zeichen lang sein.
Bei der Konvertierung im Ergebnis gibt argument-2 ein Ersatzzeichen an Stelle derjenigen nationalen Zeichen an, für die es keine entsprechenden alphanumerischen Zeichen gibt.
Returnwerte
Es wird als Returnwert eine Zeichenfolge geliefert, in der jedes nationale Zeichen aus argument-1 zu seinem entsprechenden Zeichen in alphanumerischer Darstellung konvertiert ist.
Ist argument-2 angegeben, dann wird jedes Zeichen aus argument-1, für das es kein entsprechendes Zeichen in alphanumerischer 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 alphanumerischer Darstellung gibt, werden diese zu einem von XHCS festgelegten Ersatzzeichen (Punkt ’.’) konvertiert. 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 DISPLAY-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.
Siehe auch: NATIONAL-OF
Beispiel 9-14
...
DATA DIVISION.
WORKING-STORAGE SECTION.
01 nat PIC XXX VALUE NX"E23A005A0040".
01 ersatz PIC X VALUE "z".
01 R PIC xxx.
PROCEDURE DIVISION.
MAIN.
DISPLAY FUNCTION DISPLAY-OF (nat, ersatz).
STOP RUN.
Ergebnis: zZ@