Den Umweg über die Datenstruktur könntest Du dir auch noch sparen und direkt auf dem Feld im Record aufsetzen.

Also, gemäss Baldur's Vorgabe:

dcl-s PointerKW pointer inz(%addr(KW01));
dcl-s KW like(KW01) based(PointerKW) dim(53);

Cool oder?