Wie wäre es mit ILERPG:

D MyUnicode C 10
D MyChar A 10

MyUnicode = %UCS2(MyChar); // Umwandeln in Unicode
MyChar = %char(MyUnicode); // Umwandeln in CCSID des Jobs

Oder eben SQL:
exec sql Set : MyUnicode = cast(: MyChar as nchar(10));

Zu beachten ist lediglich, dass mit %UCS2 in die CCSID 13488 übersetzt wird, während CCSID 1200 UTF-16 entspricht.
UTF-16 ist aber ein variabler 2/4-Byte-Code der mehr als die 64000-Schriftzeichen kennt.
Solange man aber kleiner U'7FFF' bleibt, ist UCS2 und UTF-16 identisch.