<unschön>
MOVEL JAHR4N DAT8N
MOVE '0101' DAT8N
</unschön>

DAT8N = (JAHR4N*10000)+101;