Dann mach doch folgendes:
d BinHex 2 inz(x'0000')
d BinNum 5I 0 overlay(BinHex)
d BinChar 1 overlay(BinHex:2)

c eval BinChar = Zeichen
c if BinNum = 200