Übertragung von nationalen Datenfeldern

Nationale Datenfelder werden mit der MOVE Anweisung übertragen. Bei Operanden unterschiedlicher Klassen kann eine implizite Konvertierung des Inhalts eines alphanumerischen Feldes in die entsprechende nationale Darstellung stattfinden. Dies ist aber nicht in umgekehrter Richtung möglich. Ein ggf. längeres nationales Empfangsfeld wird bei einer Übertragung dann mit nationalen Leerzeichen (X'0020') aufgefüllt.

Beispiel 12-15

01 a  PIC XXX VALUE "123".
01 s.
  02 nat1  PIC N(2).
  02 nat2  PIC N(2).
01 n  PIC N(4) JUSTIFIED RIGHT.           
MOVE a TO s, n.

nach dem MOVE haben a, s und n folgenden Inhalt (in hexadezimaler Schreibweise):

a:	F1F2F3
s:	F1F2F34040404040
n:	0020003100320033'