Folgendermassen:

Code:
MOVE *BLANK P2AYNB   8
MOVEL#3AYNB P2AYNB
Also 8 Alphanumerische Stellen.

Initialisierung erfolgt mit dem Definitionsstatement. Die effektive Wertzuweisung erst dahinter.

Das selbe Feld ist im CL so

Code:
DCL VAR(&P0AYNB) TYPE(*CHAR) LEN(8)
definiert.