Ab RPG IV V4R4 gehts auch einfacher mit 3I 0:

D DS
DNUM 3I 0 INZ
DCHAR 1A OVERLAY(NUM)