Dies musst du in 2 Schritten tun:
1. EBCDIC->ASCII Umwandeln
Dies geht z.B. mit QDCXLATE-API am einfachsten. Ansonsten gibts da noch mehr API's.

2. Binährzahl ermitteln

D MyDs
D MyInt2 5I 0 inz
D MyChar1 1 overlay(MyInt2:2)

MyChar1 = %subst(FromChar:n:1)

In MyInt2 steht dann der Dezimalwert.