Wie wärs mit SQL?

exec sql set : MyHex =
replace(hex(cast : MyChar as graphic(nn) ccsid 13488)), '00', '');

Man beachte:
CCSID 13488 entspricht 2-Byte Unicode, wobei zumindest bei deutsch das 1. Byte immer x'00' ist.
Daher kann man '00' halt mit nichts '' ersetzen.