Dies geht simplerweise mit UCS2 und Overlay:

dcl-ds UCSConverter;
UCSChar ucs2(1) pos(1);
UCSDec bin(5) pos(1);
CharChar char(1) ccsid(1141);
end-ds;

UCSDec = %dec(Codepoint:5:0);
CharChar = UCSChar;

// Bei fehlerhafter Umwandlung wird "?" eingesetzt.